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110 ’ 

■J20 WIDTH 80,25 

130 INPUT "7 9 t> 7° ") 1 7 f" lY" 7 7-7 T 0 " ; DIV* 

140 IF DIV*="LF'T0" OR DIV*="SCRN" THEN 150 ELSE 130 
150 ELS: DIV$=DIV$+": " 

160 OPEN "0",#1,DIV* 

170 KT=1 

180 IF DIV*=”LPT0: " THEN PRINT #1 , CHR* (27) +"A"+CHR* (7) 

190 Kt=l: B*="" 

200 FDR 1=1 TO 100 

210 READ JS: IF J*="end" THEN END 

220 LN=LEN< J$) 

230 FOR J=1 TO LN 

240 Z*=MID*(J*, J, 1) : IF Z*="" THEN 300 
250 IF Z$="l" THEN A*="B" ELSE A*=" " 

260 B*=A*+B* 

270 IF KT MOD 23=0 THEN PRINT #1," ";B*: B*="" 

280 KT=KT+1 


290 NEXT J 
300 NEXT I 
310 END 

1000 ’ 7 v v *" «j o -j 7~ :< 

1001 DATA 0000001010101000000000000101000001010 

1002 DATA 0000001001000100010001001011001010101 

1003 DATA 0101010101001001000000000000000000000 

1004 DATA 0000000000000000110000000000000000000 

1 005 DATA 1101 0000000000000000000 1101 0000000000 

1 006 DAT A 00000000 10101 000000000000000000 111110 

1007 DATA 0000000000000000000000000000000110000 

1008 DATA 111000110000110001 0000000000000 11001 0 

1009 DATA 0001 1010001 1000110000110101111101 1111 

1010 DATA 0111110111110000000000000000000000000 

1011 DATA 0100000000000000000100000000000000000 

1012 DATA 00000000000 1 00000000000000000 11111100 

1013 DATA 00000000000 1 1 1 1 1 000000000000000000000 

1014 DATA 00 1 1 0000 1 1 0000 111 000 1 1 000 1 0000000 1 000 

1015 DATA 0000001000011010000110001110011010111 

1016 DATA 1101111101111101111100000000000000000 

1017 DATA 0000000001000000110000000001000000000 

1018 DATA 0011 000000000000000 1 00000 1 1 0000000000 

1019 DATA 1111110000011000000111110000000000110 

1020 DATA 0000000000001000000001000000001000001 

1021 DATA 000000 1 1 0000000 1 0000000 1 1 0000 11000000 

1022 DATA 1000000000011000100001100000000000000 

1023 DATA 01 1001 100000000000001 10001000011 00000 

1024 DATA 0000 1 100001 1 000000 1 0000000 1 000000 1 000 


7b/7A$:RUN T'M 

t+. zm 

SCRNH, -/'}>;?- 
LPT OHi LX <, 



1045 DATA 0000000000001001010000000000011110011 

1046 DATA 11101001111000 


ae.t. imm? a?? 
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‘TOPCOM.’WJt:*A *) 4 LX, 
;'T*iftU'fcL4t. 

AJRtt&tt, WSlKHA* 1 €tf»4 *> . i ' A i - A 4i* 
IX & i l to v 1 4 . t n e, i iij o 
A < &5C0 t -h'-o fctt*f«^5!X Loo* i) 1 1„ 
4®me4^TC'£ttfftit 1ST- 

jj.a.*>Mf- AXMIL mfAhl/T'AL'T'to 
L*> U ' w 0Wfi 3 > 1^-74 L T"(i Ai 
l£tfA, 0 -A. hC* If A* 4o 

coft#r**4 < T L , io'; 7 (z^W4 ? (ti -tfA„ 

i *A L 

A£g*Afl 0 ttn 4 TO ? t CiSo T L 4 o A'p'ifiUft 
: ®T 7 A t CO* 1 L L A 4 A,. &A * £ A L® 
'riWiti. tt’iz, 4iT©:fcH8tt£4*<i > 2 
A®:um fm/z 
i t LSI 

4 t 0 4 tz£ fctfSp J: 7 AX 0 fc £ U 4 To 
-Aft t s i 1 1* &A V-*M)AfRJtz t 
of, a'sV'a.-r.itmm'Tysf? • *';/7XiZ L 

a > a-* li, T 4 fife t T US {> ft < 
t •WJ.m’O'hizffl c ; * c, HT L 4 i\ * ®«a 
0T'jMA®LT^4 LA„ — &LMA AA'fX-Z 
4 ^ISX*' tftfttt’lfc. Ai\fi'?j:zi;{z, 
''°yn>-*WJdL, ^L 3>kX-7*\ &A 
A HfeAc/TF-!Zi)$-o -c & ACOfto 4 S C\ *<*7 
7 1"7 >t -f h © >t riA*«an* "7 7 ^V<b 7 > 


7°" cot 7 (z 8 

i(DL< **-««&. »fr«z«ftttL»!>Ur, *>14^’ 

ai/tV— *14, 7" 7 -7 7 • XXy 7 Xfli* 0 |#4 
< 4 S Oft. 5fc t (A a > tTi - 7 4- J: < Al 4 
«-®* f * 0 4 to 

* t T t , 1 7 4 7 ; f, fAAt 4< AOA'fi L *\ lu 
fiW<z. a>t>-7!z^.< ; t im fc'5- 
IX LMmo-Cta ;n ti. AliH^tfepf 
L, t Cf ; 4 4 imtf4 0 4 1 tfr L 1 '£WI;#£\ 

SE V'.C9:4 1 1 i <D i r 1 4 A * ( z {, X "T A4 ; L A ** 1 0 

x:to 

3->kA-L-7IX t'4. feAt-teA^f-OMx: 
* 0 4 to POPULAR COM PUTER ©Rfrft. 

1 4h t ‘TOPCOM’’cOfl$=ft**te4 oAOtto 
ffi«®*#ttw;«z*i)4fo fiUFiJ 

“-OAStL, ^'-^i7 i LT03>t°a.-7iz 

LUA'fcXt, ^tfa.7-4 4®«zttftT4.lfc 0 
3^Vf.A-^4j®*»t<?)tt, 7D77Att'5y 
7h^i7-rto ftt. ?©y7^i7^o< ft; 
,'ht A t {Z 4 s i- CDUHX’ L i 7 „ ftA % ABBO^ 

ffif* 0 . t-ffi.-rto ^A477 FC077 h L i/u 

"77 ^C^Z'O 0 * IzM^-^ioVs* 1 ? 

7— • 3>n°j.— 7cOd$ft(z < 

ATT 1 ; 7 1 1 1 7 co* 3 '“POPCOM”T'to 

«a^0Nt i©2 31 
“P0PC0M”«|ftg|5 
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/r 


r?i * ts.rnm^u-> tz o) 

mtmpjbz 

n-o^nt ti:#u 

B/ k W ®4 i mitral. bt~ 
-n.'fcv.5fci«'a*. r^-n^ti-ii; ft< 
*&«iL-c, *776ii£fcfc**./rtr* 
o rrnxx 5 ffl&r^igM-oii 5 1 1 


d ixt:** LT, 77 n mm-.mhtz: 
fc'5.- rtormtii, -BtrwraBt^ 
i:, ?V*A'P»ro. &?****£ 

1ihi a 

tMib\rC, 7i-vy{ z%rs7Jt»izl-~Jt- 
m*t> * & c, , w w jr je i'-trii ft t ' ^ 1 1 ' 5 

jbb* -m 7*>; * K«th»»rs fc. 7*y * 
K t ii3£« t *iSlfiL D , -*&J 
HM.X *5 ifiifliCIJ 5*^1 '*■?», 

I'o 

a-awt^ -7 kiwoxjsuu M&tmm-trz 
0 , < ?c* h i- 5 - tr* SAT* 5o 


PW$>i:J:oT. 

pfc»i:*Uu:L*Cfc8UiCL 

7'UM > 0 *:* t I'bnt 

^ *> <*> * o 

i t/vUt «wo*-? 

t L T#fc I'* I’ 5 

c J f^yoi-^twoLz, x 5 iztcotzo 
arfby’.-- rrn t ?&* ^Arst^i. ur, 

fcdZ- j/ 5 JMt**t*o |^0l#li77 n 7W 

-T* 0 , ^ITA'^m (ir"'77 5 1 1' x. 

I'* 1 , MSAIiTAorm MSAlixV*;^ 
*fcfc'50tt£ 5*5*5. 

/hlfit: {> 77 a ;7 fc tV* A-O lt*** S„ 7 a K 
5-*li77n*W.-'U WhKUtf'^A'KrC'* 


7^0711^71^ H3EiU0J:5Ktt*f6* 

0»g*.f.<.'ffli- o 1 5i'iLurs±im;LX4, f* 
na-ct, sms 
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( 1 1 ' 5 

z<D£ 5 1 rlf Itc^KTtv 7" t xV7 a- k. 

4 1 fc t ftfc*>=« 

fcAgiJt* ts r^B^* =»7fc°i-* 

©rta^l, *?&**■• *y\£*.-fr<D7*i'=H' 
t :fts 0 

.IT+avOWi LT^^StfCK, 
t LT, ^0fB^yn^>«r*lfTSiWt&i t** 
fcL*M:r^a>ttailHI«rai.\ rVay 
iigSfcMSriK? 

i -T & , 77 =» > t *>^s?a > fc 1' 5 M$0£Kii, 

1 5i'5 iOfttft® 

3yf>t- 

3>fA'«ci«ria*^*Hi-C, 4*^ b *- 

ue»t* tor#*, 

—uer ? 3>ii. x >f * * *#0 

-sfco *©f& 

Wir'V3>^B#ftr'*o-C, 77=»>lif2 


*ttt»-CL4-*fco L*>L»RWi7^B^*t 
WRWftf'^-ndlfc^ 

»r* s *> ?, , at* o-ct, 

X**W* i:4» 4«»- I J 7 1 n 7'***1£>b ft 6 
Uhl* fctitur^y3>i;toi,'-c; c* 

t*ft<A :w S.riSf'w-ObZtf. iti Ai:tvt' 

4-fie5 fci'5 - i-ObtUi. miltTi-vrtifrCt, 

Z a Xmtl-vVV ) Bffl 1 1' jtr fc , £»©£< K 7 
h) ®#i t> fc L7«igL-Ci'S**C.^^^irii 
ft <o^tv5 Kir^ft I'-r t ft I'**, Bffi* 1 # < ® 
5i:Sii fc Sli, 77 nr 
d 77&r tam-rr c. 


mm^A m 

ti'Z „ £5ft 
W&4 <t 5 Cftio 

9i:, -ft**?,}*, 7 

fe$:ft-»Ti.'</.?*5. 7C*. 

'batl'Zc ''A7*') 7 FliSfc 

TOftOSM&ft'ftfcftft. 

^0^ 7 K O 
-f XX h/f^to 
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I znn^wzmiz'o, basic 

W=l ><!:0©>S»l/35*«0SUS 
US©>o *TIIZIS, *£«*d&Xll»ES#?;C*5 
©^-sr^o ^nizurfe, fflftSfflt^iz#^® 
fetB«ut^©-cH:®pru^i\^g-o -ezr^s 
is, 

Bsfeuozt^rs^'ci/di-io 

WD^ctODSa® 

\ ? -i'3> CW<7D3>fc±i--50 CIS, tflvSfc/ 

,t**<*:/uCD«Kf» 0 *^ *ne>±ffllZ* 5 aa 

A^tlS, rJ>t:Cfel^Sl^ilffiCscreen>fcv 

V'9-t^P^O«»i(keyboard)^f>Ctrg-(^ 
i - 1 )» ,iwe 50 ji««ieci\T:wb>cBB«G 
^tv’-<i]>isR^aacs;?^H^RSx 

(display) LX, S)S5Ci^^£^t<?l.*?o ©•© 

'ZZ£. 

HSIIS A*SS 
St^BiglS Hi* US 
'rasstiAo'C'fctfciA©'©^#, -&©«□, 

AM*© r Aj ZUoHIZIS£lYLX*(im3593:t!: 

bo ffiRSv'C^CA r AA^Sj J&IA 

' i\, XY©>tfM*^IZtB3ZZ£ r tiiAg‘Sj Z 
te\m©."C^o ZZ3X, WA>©$WSZZIZ&& 
..©rus©»o ms, ^(SiiSiffiSfflA:»cranx. 


IS3*U V-vt&ttm-iTfcfllt* 7.U>hE)ff 
£h£S*g©±IZ, ii}S<J5t\©A$^ffl“6”^J'fg 
IZS‘0A:^C5(/\©‘5”A , l^<© ! feHA.5APS'5o - 
£<&/u£©ISx.£, Z®'J\S« * 5 ” ®©^©IK© 
/JZ/A-Y □>©$»«© AAc 

: 7 CK 7 ^ 

AY©>©W©«AIZIS, £<£^©M*£Sa§ 

tf$Z£©'CS5E1*l*S (memory) #359 ^ (-& 
&$&©<*« ”6* Wo Z©B5ttS*©»tflZ,- 
l±*©#HI^lB)ZEU^7 p P^7ix (program) £Afl . 
ASS, Zft£HtT&t*3©£IZJ^-a±*€&1S3 
©tf, 

m 1 - 2 IS, Z<fH6S7p75L©iJ?o Z©:7 
□(/^A^iBM«SIZAn575ffilS^triJ0JU^3-o 
zntfei£®zAoxu-5W§r, *?*©}g^ 
fLirnfsim iretumr 
£LJ5ZA3;3Z, H 1 - 3 ©XZIZ, 

3f^^B®IZg^(list)^n^3-o BIZ, H*r(run)© 

}§^ 

fRlfUlfNl f^tUFn] 

£Z*lSx fJ20© PRINT " AAAAA " £Hft93 
3-<ZsAAAAA3 t EPH(print)Sn^3"o ZfflXoIZU 
x,3T20~503fiii^iziifi$nr,4fi©aH^3on, 
1360X 3593:© (end) IZSSZl’OWXZo 


K 5 "f 7 \*£ffioT 3 39 £ 
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zf p^7aia — 


10 REM 1A 
20 PRINT " AAAAA " 
30 PRINT "SSSSS" 
40 PRINT " DDDDD" 
50 PRINT " FFFFF" 
60 END 


(^dT1±-7°D/7AC0#^- 1A 

«- s s s s ;nT4ff(nEp? 

<- D D d d d i> tfntitiz 

<-FFFFF h 

<-& b n 



basic [beisik] S#« 0 o screen [skri:n] S, keyboard [kI:bo:d] «48 0 display [displei] JUt-S, 

S/FT&o memory [memari] |eif 0 program [prougrgem] 7 °o / 7 A, # 1* 0 list [list].— fgdL Sets, 
run [rAn] print [print] EPWJT4, epTT-So end [end] 
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mm ®*- 1550 

W=l>ffl««©*-fflE5yttx -9-T79-Y5*-© 
ABC*TC«81,\© 

c*nx<*ru«K^»5®*o/tt^tvio8!i±^ 
jgffl^ais^i i - 5 (D^c^^fDtfmmcD^v 

4#: 'J>M® sa© t«g(D] ASUS® 
6#:A&LJg(I) tfflg® g}g® 'JvfgQ 

^IZ$£ttJ»Z)M£nfi (space) £351 TSSiOfflfe 

©r, cni^#«?*B6#ffiWBTtIl5*9'o' 

H33<<!:x U5l'5*-£lt£<T-&j7i:3<£;3 
iz«‘0SE^jr^(}g^fjo«m ; £^^'c<n^')o 
•Sfebffl-SSBx S#t6#©A6^«e?I^CtJo 
•t5J:tYC3#5x a*BK^3r<#siv 

Jb^CDJJ £75 

:td?£^€BHCks Gist) s-esizia 

[Li IDfSl fTl l return] 

tjjs^^(^i-3) 0 martMzmmuzs 

i - 6 r?oS 

CMF-BCSCB-SCaBOx 

INffl^gir^c *-©_££« RETURN ttf 
CR (carriage retumfflBg) 

0 ffi*£«ltttf-DC5aDtf^'Tast>36?)v tmiz 
<fco.T(A3i\3» | 93^o 
■JZYT^LJeMi (run) £t*33g^ (H 1 - 4 ) B 
®©®S 
r<T(E!1 -7)o 

•Z*56ffla£t5,1t}IIZ7oTiaiS®IZ list ^ 
run ©<«e/JVX3SrH»Zcb£f»9S9ffx* 

*ttni;r9»53!»t'*i*/uo 

yn / 7^L±mi5Zd>jj 

iztxixyny^^A 01 - 2 ) &fj5z®<£u 

^Uct;3o ^ffl^□(7 ; 5A^IS6T>©W»5rS■C^^^ 
Sgri5fflfflfTlO^JJO'C*^Ud:3o OSSIO 
®#tai>i€aBt«W5 
(Dfol lspacel 
tJJS*^(H 1-8)0 

®[El(M] |spacei mW [return| 

Z©f7BT*S35tf‘9'C<3- (11-9)o 


'«©fi20fexf5*s®EBa(MT!ssBB i - 8 zmm 

Wo iUZ 

fPllRim® [Tl fspacel ^icg^? (M 1 -10)° 13 

IllcJ^ffi? IS?5 (quote=quotation mark) r " jT?o 

zn^sroizs 

*ffl*SJEJS<<3S£©2tf 
lliTUSl^fo £ZT\ lspac^ A-©5SIZfi©A 
Z3CaBSS/^h(ahift)-ffl+-®ff UiE** (-fcfflJB 
iaia&<*£UT*) ffi r " j 

^tBTXnWEII-IDo 

•lEmamatfmti&'Q izsoiiaizHu GB ©a 

Ha®^©SBBT3TS*g>9Bx 2/?Mf-tt* 
6#©/j\}§T’6ffldF-^a^^r»<ffl7fe^r 
3o 

^AB^fflO60^r^S«<J7T3'Cbci:3 o ± 

att75ii§A£Ss 

Ki/wccieasi/V 

•yay^Ls I A^REM^PRINT^ENDfoMMS 

(keyword) Ztfian^<7o dniS^fflljfflllS 

— «m — ^^© 3cttf«©rg- 0 cn5iSv 
£ZA©£¥rj75z^r35i\rtK ®rcM*r 

©3©#ssr<3- o 

•fjlOffllACA^ f720~50©A^S^D«A*«. /J\ 
^rJ7BZ7ur35<<tlO^'C i fc/J^ffl^^ 
r?o ^ZTv 

zoi\o? 

B5/3'h^r-^»US:Xf5l7‘a^AX^C«o'C 

cnsiwc^o 

JJ£P4IB*£££<Z)iIU75 

Trn^ZjtfjsztstsCx i^rcz>i,\i®§AT 

•^ffllrm^ffi fretuml ££T©ffilZgtffOt, \£li£IZia 
[DEL] Hal 

©A-^oTiSg-ZtifT'gS:^oDELiadelete(^ 

9)©bt\ z n£ i rar^ttfc i ¥<rz>&3# s 
*«.tl\SS?o WijtCX^rWL/CtiiTJx 
*Z#saB£«EKJ-75BU jEU,\fSEfTS**f 
oTffS fre^ ^-£gZ>©T<To 
17ffl®Sl©®um)dF-^f7oS®ti:». ffiSC^ 

etSCBv r tlIEj ©7igTlUifo 




r, 


•}p *#\ AH 


— ; 1 

AS L iS *}§ 'J'JI I 

CHHEllMGHSEEEIi] 


■- ■■■B^EssBpmmn 

n^ifxi^^^mr^Tnw 


(list) T 


(run) ;8H 


myomas 

pppeppp 



r 


□□□mBBDDDDBEg 
[MIMEE jl ][MkI DC Jl ]□ 

i nnnnnmnnnnm 

i . i ■ ; 


I 0 1 is pace 1 



fft] [El (M) [ space | [T| [A] I return 1 


e j[rjul jpppppi 

MEI IJPPPPPPP) 

□□ppp ppBPPP pg 


□PPTOppmpBPPPP 
SPPBPPEEPPI _ 
"ppp ppppppnn pn 


c 


□ ^ 7 A 1 A- 


10 REM 1A-1 
20 PRINT "JJJJJ" 
30 PRINT " KKKKK" 
40 PRINT " LLLLL" 
50 PRINT 
60 END 


hi 


_®®EBPOQpBBPPPD 


1 A - 2 


10 REM 1A-2 

20 PRINT " 1234567890 - A 3»£ " 
30 PRINT " QWERTYUI OP@t " 
40 PRINT "ASDFGHJKL; : ] n 
50 PRINT "ZXCVBNM, ./“ 

60 END 


space [speis] 35 Ph], MPio return [rita:n] ■/§§, Il'Jf 1“ b „ carriage [kaeridj] {j.ftno quote [kwout] 

31 ffl't'S, 3 1 ffl Wo quotation [kwouteijan] 3lfflo mark [ma:k] Ep, fg-^- 0 shift [Sift] ©t, f fct. 
keyword [ki:wa:d] «£$ :£fg, delete [dilf:t] fflt. 
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yQyyazmyti&^iz£n^n&myt.M > © 

^'<^t^D7^UD-^^ HbUT^UglJCpC 

t^RAStftA^llcA iSffiH* (screen editing) 

r y-y)C^ihy-$z<t\z£ 

: ; v!-i'ZI>'C*-y ^(cursor) tU^CDISv C.ttS'S 
£fe<^-®¥tfiH®±©£Zlzm3£'£^<rragffl 
@ep ■ fflctWo zntf^sa^s^oc&oT 

; ft-VJL£±T£azffi)ft'^£©©A-tf\ £(AT 
U©ME%«if^Tl/Wa ©ntt 
.; CD (USB *£« s © 
©^oC^EDrftUT:®^^^ isiz^us^e 
±T2©IZ£e0tfAoT(A3 i &fflrias ^(D^miT 
gj^®55GD©BaC»-V;iy^S(l««^U SrTb 
: #-$JfUS^SUn^±©©^EDCD15-3lC.»S^^o 
•HLAP-^ 1 ©6U#14W*S£> 
■efea«ut^3t©<!:P5L»ii**jr3*-5a« 
a-yjus^AJSoriASS© 

^di^AI A(B1-2)^ 1 A- 1 
(HI -12) <D&5CmEl'Za&ils* J 5, tncs, 
a^^©^3pcj#lcffiotwruj;oo . 

. ®yay^A i a ® esc <rs (H i - 3 )o 
©a-vjus ok © o ffl^fflTi^sffir.Q]©^ 
-HE 7 ■O#J^t^vil/«j10fl)<!:'CS*-de-3 
r<-5 0 

®0©JF-£ 9 HJJorA-VJU^ 1 AfflKCDttfc 
^r»or<-5o 

@ES<tS)^15s fretuml ^j-n?. 
©A-VJUJO20© 2 lza£3ffiT\ 0«1OBIJ 
" ©«©a©±*'c»ot:<So 

'©QD^SIBi&BS* AAAAA £ JJJJJ IZ^So 
©SM© " BSoniSfflTxftDSSS^ 

-££TOo 

©ff30~50IZOS. ±ffl©~@i:^«ffl«IE^Oo 0 
®[T] £££(,. VIA a-VJUf-H&T^'CTtfSo 
•©^as&'uta *75-v)b#7D7^^©S^lz 

^<n«uct^<ez<o^^e.a*u-c 

■;<e*u\» 

-f - 


mmzy&yyt> i a^ i A-i£ i a-2(b i -13) 

©*'6c<giEur©s<Zs ^tvHHcab^o 

Eo?^5^;?ffl<@fs^/3\x.sfflt‘-s ami 
© " tf>g*TU3®W§| 

'tiAo mmz$\Z< " ^ffoTffS lreturnl A-^ 

arcK^w©^ 

«(7n©©^fflcpSBs fretUTFi ^-^fl-^riai;© 
T^5©r^*'Ss Sig±ffiff£-£*Stifl§iE 
UTt). [return] ^rffi©ftlZ^, 

33s A-VJlAfOffligcpiZ © 

f5±tt*^ BHCSOGJKESnS^o 

atASlAtSU^o fe©5iffl^?IS 

■c*£ffl^H 1 -I4r9o*s$^feg»ffli^?r0 
i;z££^r*Tmw*fru«fc-3o 
•yayyL i b ch i -14) ©fKOAfr.iooB 

PRINT 

m-rCs ^'co^z^mz^m^ithjc zn«a 

cfeED^^rcKfsei^'w*^. -^ozne 

<£-z>Z%(D?jtf lii-CS^o Zffl^oIZUTv 
run ’p Ok 

#>mUD2A 

SSfflTCffgl 2 AgfApTIASB (B 1 -15) £ 

U®^0^Q^CD^B^ffl©£^n»HJ!lj 

©HraiHi'b^a'oasos^o 

•A^A®^3IAlZtt[*S[KANA]®^fflaiBffl^5) 
dp-^»Lr«'53TO#*U.Us 
IZB |GRAPHl ^£l3 fGRPHl £l ^Md,(D&2>*- 
®UiS^53I5^^o 

MiiiACDttBrRS 

ay^M D (H 1 -16) ©c«ELT^ttiAfflffifr8c 

•SmH®izffiue>Stt?B. ‘ffloriss’ wnz 
I JL>**-eAuZfx SBttS:®* .«3RIZ^ajfC9 
ttStlvS'CfcEUTSS^Ld:^. H •; 


30 


run 


|Q[J yu^7A 1 B 


10 

REM IB 



20 

PRINT 



30 

PRINT 

"M 

M" 

40 

PRINT 

"MM 

MM" 

50 

PRINT 

"M M M 

1 M" 

60 

PRINT 

"M M 

M" 

70 

PRINT 

"M 

M" 

80 

PRINT 

"M 

M" 

90 

PRINT 

"M 

M" 

100 

PRINT 



1 10 

END 



1-15 

1 C . — -fif £ t 


10 

REM 1C 



20 

PRINT 



30 

PRINT " 

X 

" 

40 

PRINT " 

/l\ 

" 

50 

PRINT " 

/ 1 \ 

■ 

60 

PRINT " 

/ 1 \ 

" 

70 

PRINT " 

/ 1 \ 

" 

80 

PRINT " 

/ '?09|i'>tD \ 

" 

90 

PRINT " 

/ 1 \ 

" 

100 

PRINT " 

1 

" 

1 10 

PRINT " 

1 

" 

120 

PRINT " 

1 

" 

130 

PRINT " 

1 

" 

140 

PRINT " 

1 

" 

150 

PRINT 



160 

END 




H M 

MM MM 
M M M M 
M M M 
M M 

M M 

M M 

Ok 




10 

REM ID 


20 

PRINT 


30 

PRINT 

"Sigeiti MORIGUTI" 

40 

PRINT 

"Syoan 2-16-10" 

50 

PRINT 

" Sugi nami -ku" 

60 

PRINT 

"Tokyo 167, JAPAN" 

70 

PRINT 


80 

END 



run 

Sigei-ti MORIGUTI 
Syoan 2-16-10 
Suginami-ku 
Tokyo 167 , JAPAN 

Ok 
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AftUT<£&t,\o 

CU^h3 R38) 

3PB0**j3Wt:*ttx fir 
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* 1000 WIDTH 40,25:PRINT CHR*<12> { 

• 1010 DIM TATE*( 10,10) , TATE ( 10 ) 

1 1020 Y0K0S='S“^5>i9 7*D9"?A‘ * 

* 1030 TATE( 1 )=1 , 

} 1040 TATE(2)=2 

’ 1050 SX=20 * 

\ 1060 SY=5 2 

1070 GOSUB 2040 

J 1080 LOCATE 0,20 * 

♦ 1090 END , 

2040 ' i i 

♦ 2050 ' I f f #" ♦ I * 

* 2060 ' 1 ■ 2 

* 2070 FOR X=1 TO lOiFOR Y=1 TO 10iTATE*(X, Y>=‘ - :NEXT Y:NEXT X 

) 2080 S JI =0 : ST =0 : SGY0=1 : XX=1 : YY=1 * 

* 2090 FOR X=1 TO LEN( YOKO*) , 

J 2100 X*=MID*<Y0K0*,X,1> 

} 2110 IF X*="“ OR X*=’* 1 THEN TATE*(2*XX-1 , YY-1 )=X*:GOT0 2160 

* 2120 IF X*<>" ’THEN TATE* ( 2»XX ,YY )=X*:ST=ST+1 :YY=YY+1 : GOTO 2160 , 

2 2130 IF XS=‘ ‘ THEN XX=XX+1 : YY=1 : 

: 2140 IF ST >SJI THEN SJI=ST * 

{ 2150 ST=0 2 

2 2160 NEXT X: IF ST>SJI THEN SJI=ST 

J 2170 SGY0=XX * 

* 2175 LINE (SX,SY )-(SX-2*SGY0+l .SY+SJI+3) , ‘ - ,BF , 

> 2180 FOR X=1 TO SGYO 

} 2190 FOR Y=1 TO SJI * 

♦ 2200 LOCATE SX-2*X+1 ,SY+TATE< X )+Y-l iPRINT TATE*< 2*X, Y > ;TATE*< 2*X-1 , Y> 2 

2 2210 NEXT Y : NEXT X 

J 2220 LINE (SX+1 ,SY-1 )-(SX-2*SGY0,SY+SJI+4 ) , *■* ,B * 

♦ 2230 RETURN J 

J * J 

M'jxh 2 ncoifflit 

< ~~ — * * 1 

i 2 ' i 5 .’ a > f I ♦ 

. 3 ' i . 

; 1000 CLEAR 3000,49152! :COLOR, .OsCONSOLEO, 25,0, ltUIDTH 40,25 

♦ 1010 COLOR 4: PR I NT CHR*<12) * 

! 1020 PRINT - « 9 r < 7 J* a > t' f i 9 ..» - 

* 1030 DIM TATE* ( 10 , 10 ) , TATE( 10 ) 

* 1040 DIM AD ( 4 , 2 > * 

• 1050 N=15 

1 1060 DEF FNS( Z >=INT( Z*RNO< 1 )+l ) 

t 1070 DIM UTA*(N) ,HAKO( 4) , BASH0( 4 ) , MEMOC 100 ) * 

* 1080 FOR X=1 TO 4: FOR Y=1 TO 2 

’ 1090 READ AD(X,Y) 

♦ 1100 NEXT YsNEXT X ♦ 

> 1110 FOR X=1 TO N 

‘ 1120 READ UTA*(X) 

♦ 1130 NEXT X ♦ 

2 1140 ' i 1 

; 1150 ' i * :i - i 9 t* i 

t 1160 ' ‘ 1 * 

2 1170 C0L0R4.-PRINT CHR*(12> 

! 1180 YOKO %='9Jz>/ ‘ :SX=35: SY=2:TATE< 1 )=0 : TATE< 2)=2:TATE< 3>=0 :G0SUB2 

, 040 < 

2 1190 Y0K0*=‘ F-H577D 1 ,- 5»W 2*~77'7t 3* _ *=,7-r :SX=24:SY=5:TATE< 1 >=0:TATE(2>=3! 

} T ATE ( 3 ) =3 : T ATE ( 4 ) =3 : GOSUB 2040 

♦ 1200 Y0K0*='1#2U39 IW? 1 :SX=13:SY=8:G0SUB 2040iLOCATE 0,24sINPUT X i 

— — — — — * 
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* 1210 ON X GOTO 1220, 1370, 1830: GOTO 1200 

, 1220 ' , . 

1230 '1545 79V I 

* 1240 ' 1 1 

, 1250 PRINT CHR$( 12 ) 

1260 FOR UTA=1 TO N 

* 1270 MEMO=FNS(N) 

4 1280 FOR CHK=1 TO UTA-1. 

1290 IF MEMO! CHK )=MEMO THEN GOTO 1270 

* 1300 NEXT CHK 

( 1310 MEMO < UTA ) =MEMO 

1320 Y0K0*=UTA$<MEM0):SX=i0+FNS(12)«2:SY=FNS<6)*2:TATE<l)=l:TATE<2>=3:TATE<3 

* )=2:TATE(4)=2:TATE(5)=3 

* 1330 COLOR FNS(7) 

1340 GOSUB 2040 :GOSUB 1890 

* 1350 NEXT UTA 

i 1360 GOTO 1140 

} 1370 ' i , 

* 1380 '19 m I 

* 1390 ' 1 1 

1400 FOR TEST=i TO 10 

* 1410 PRINT CHRS( 12) : Y0K0S='85‘ : GOSUB 2020:SX=32:SY=1 

4 1420 GOSUB 2040 

* 1430 KOTAE=FNS<N) 

* 1440 HAKO( 1 )=KOTAE 

1 1450 FOR Q=2 TO 4 

5 1460 HAKO(Q)=FNS(N> 

* 1470 FOR CHK=1 TO Q-l 

; 1480 IF H AKO < Q ) =HAKO < CHK ) THEN GOTO 1460 

1490 NEXT CHK 

* 1500 NEXT Q 

4 1510 BASHO< 1 )=FNS(4) 

* 1520 FOR Q-2 TO 4 

* 1530 BASHO < Q ) =FNS < 4 ) 

2 1540 FOR CHK=1 TO Q-l 

* 1550 IF BASHO CQ)=BASHO( CHK) THEN GOTO 1530 

* 1560 NEXT CHK 

2 1570 NEXT Q 

* 1580 SP=1 :KU$=UTA$(HAKO( 1 ) ) 

* 1590 GOSUB 1930 

{ 1600 YOKO$=M I D$ < KU$ , 1 , AK I - 1 ) : SX=32 : SY=12 : GOSUB 2020:GOSUB 2040 

* 1601 Y0K0*=’7»’ :SX=28:SY=1 : GOSUB 2040 

* 1602 KU*=MID*(KU*,AKI+1,LEN(KU*)-AKI) 

2 1603 SP=1: GOSUB 1930 

< 1604 YOKO$=MIO$(KU® ,1 , AKI-1) : SX=28:SY=12:TATE( 1 )=2t GOSUB 2040 

* 1610 YOKO®= " 5>f ? ’ : SX=23 : SY=7 : TATE< 1 ) =0 : TATEC 2 ) =0 : TATE< 3 )=0 : GOSUB 2040 

2 1620 FOR Q=1 TO 4 

. 1630 KU*=UT A* < HAKO ( BASHO < Q ) ) ) : SP=2 

* 1640 GOSUB 1930 : YOKOS= " — " +CHR$( 48+Q)+'— ■+MID*<KU*, AKI+1 ,LEN(KU*)-AKI ) 

2 1690 SX=AD(Q, 1 ) :SY=A0(Q,2> : GOSUB 2040 

* 1700 NEXT Q 

* 1710 LOCATE 0,24: ANS$= I NKEY$ : I F ANS$=" THEN G0TO1710 

2 1720 ANS=VAL(ANS$): LOCATE 0,24:PRINT ANS; 

. 1730 FOR Q=1 TO 4 

* 1740 IF BASHO(Q)=i THEN ATARI=Q 

2 1750 NEXT Q 

. 1760 IF ANSOATARI THEN FOR J=1 TO 500 :BEEP1 : NEXT J:BEEP0 ELSE FOR J=1 TO 5:BEEP 

* :NEXT J 

2 1770 SX=AD< ATARI ,1) :SY=AD(ATARI ,2) 

* 1780 FOR J=1 TO 20 

* 1790 LINE (SX+l ,SY-1 )-(SX-2*SGY0,SY+SJI+4 ) , ,FNS< 7> ,B 

2 1800 NEXT J 

. 1810 NEXT TEST 

* 1820 GOTO 1140 

2 1830 ' i . 

, 1840 'I t 5 H I 

* 1850 ' 1 ‘ 

2 1860 YOKO$="A*5a97 *97*759 9776 T2-7-T :PRINT CHR*( 12) :SX=25:SY=6 : GOSUB 2040 

2 1870 LOCATE 0,23 

* 1880 END 

2 1890 ' . , 

t 1900 ' u > 5i ) ; 5 ) r >: ) n ? y ?■ i 

4 1910 ' I 1 

; 1920 FOR X=1 TO 1000: NEXT X: RETURN 

, 1930 ' i , 

* 1940 '19 J * U X 9 a* » I 

2 1950 ' 1 < 

’ 1960 AKI=0 

* 1970 FOR X=1 TO SP 

J 1980 AKI=AKI+1 


1 1990 AKI=INSTR< AKI ,KUt, ' ') 2 
’ 2000 NEXT X 

♦ 2010 RETURN ♦ 
I 2020 '77777 »"+U< 7 7 T 2 
i 2030 TATE( 1 )=1 : TATE( 2)=3:TATE( 3)=2: TATE( 4)=2: TATE(5 >=3:RETURN 


2250 ' I 1) < y 9 9 > 71/ < 7 9 I- I 2 

2260 ' 1 u 

2270 DATA 18,1,17,14,10,1.9,14 ♦ 

2280 ' , } 

2290 ' I T 9 J * y S J I 

2300 ' 1 1 ♦ 

2310 DATA tWH <*'777* 72* T'Jl9'f l 

2320 DATA 7 77St tU-“Z3:J77 777B"A 

2330 DATA 75771' 7TA"7J)A"7 tJtti'J ♦ 

2340 DATA -TS.777 Y33y5'05 7 T7B6" 2 

2350 DATA +7D7t 7XlfeY5.D" 747A7 

2360 DATA 7J7"b7 7*7X7At3 t»"S»”7 } 

2370 DATA i)S7“U7 7970377 t8yr7 2 

2380 DATA 3“7”S?7 Y7:35Y4 65731 

2390 DATA 3A"77A 7TZ0f»7 T"7A5<"X ♦ 

2400 DATA 79777 Wt7l>"«* 0X77 K 2 

2410 DATA 75575 77731-74 777ft- 

2420 DATA A77"97 77S17BL 0777V" ♦ 

2430 DATA tl-*76l 073"3t777 AT" K97 l 

2440 DATA 17A46 I-77T9T7 X7T57" 

2450 DATA 37tS 7 5Wj?A7t 7T779 ♦ 






1010 PRINT CHRS( 12) 

1040 DIM AD ( 8 , 2 ) 

1050 N=3 

1070 DIM UTA$(N) ,HAK0(8) ,BASH0<8) ,MEMO( 100) 

1080 FOR X=1 TO 8: FOR Y=1 TO 2 
1170 PRINT CHR$( 12) 

1180 YOKO*= • 973-f IY730" l/33i7f a? ’ :SX=35 :SY=2i TATE< 1 )=0 : TATE< 2>=2:TATE< 3 )=0 iGOSUB 
2040 

1190 YOKO$=‘ t-"H5?2» 1*-*II-**7V 2 0_ 2V4776 3" T37Y ' :SX=24iSY=5:TATE( 1 )=0 : TATE<2 
) =3 : TATE ( 3 )=3 : TATE< 4 ) =3 i GOSUB 2040 

1315 SP=1 :KU$=UTAS(MEMO) :GOSUB 1930 : YOKO*=MID$(KU*, 1 , AKI-1 ) 

SX=FNS ( 3 )*8 : SY=FNS ( 3 )*5 : GOSUB 2030iGOSUB 2040 
SX=SX+3: YOKO$=MID$(KU$, AKI+1 , LEN(KU$ )-AKI ) : GOSUB 2271 
GOSUB 1890 

1410 PRINT CHR$ < 12 ) : YOKO$= ' XV 4776 " : GOSUB 2020 :SX=2:SY=1 
1450 FOR Q=2 TO 8 
1510 BASHO (1)=FNS(8) 

1520 FOR Q=2 TO 8 
1530 BASH0(Q)=FNS(8) 

1600 YOKO$=MID$( KU$ , 1 , AKI-1 ) iSX=2iSY=12: GOSUB 2020:GOSUB 2040 

1610 YOKO$= - K “ U?? * i SX=6 : SY=8 : T ATE ( 1 ) =0 i T ATE < 2 ) =0 : T ATE ( 3 ) =0 : GOSUB 2040 

1620 FOR Q=1 TO 8 

J$=UTA$ ( HAKO ( BASHO ( Q ) ) ) ! SP=1 

GOSUB 1930 : YOKO$=CHR$( 48+Q )+ ‘ . ' +MID$( KU$ , AKI+1 ,LEN( KU$)-AKI ) 
SX=AD(Q,1):SY=AD<Q,2): GOSUB 2271 
1730 FOR Q=1 TO 8 

1762 KU$=UTA$ ( HAKO ( BASHO (ATARI)))iSP=l: GOSUB 1930 

1790 LINE (SX-l ,SY-1 )-< SX+(LEN( KU$ )+2-AKI )+l , SY+2 FNS<7) ,B 

1860 YOKO$= ' IY7>3" U>3a75a9 T37Y' :PRINT CHR$< 12) :SX=25:SY=6 : GOSUB 2040 

2175 LINE (SX,SY)-(SX-2*SGY0+l,SY+SJI+2) , ' ' ,BF 

2220 LINE (SX+1 , SY-1 )-(SX-2*SGY0 .SY+SJI+3 ) , ' ■' ,FNS< 7) ,B 

2240 ' i , 

2250 'I ! < 771 
2260 ' 1 


. 1320 
1330 
1340 


1630 

1640 

1690 


r 7 7 t 


2274 LINE <SX,SY)-< SX+LENC YOKO$ ) ,SY+1 ) , * * ,BF 

2275 LOCATE SX,SY:PRINT YOKO* 

2276 LINE (SX-l , SY-1 )-( SX+LEN( YOKOS )+l ,SY+2 ) , ,FNS<7) ,B 

2277 RETURN 

2280 ' , , 

2290 ' I I Y 9 > 3 ' I 

2300 ' 1 1 

2310 DATA Y5? dog 
2320 DATA B? money 
2330 DATA Yl house 
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T©£U iin£?IS 5 ^©*GPWffioT5ofe 
S3^6^fflfmW$xTl^felAS'fto 
ESJS6*fflHMItf Sfc 3 ««$S#©tS6W$ 
ttfi&ftrmcssfflOo 


§g^7°7-(i=l >b: zl 





-*BSft<7>»T:fe« 


□>^x-^®ssc®nv x-^ffle 
ss/^x^iztsai^/ wjujtzg 
to £®iw iT^ses^7x-tQi« 
nsfe©^© i ® 0 <z®^Eis®i5ffl 


^sS^T-tZ'Vh-^nT®>tx-^t 
®ae^SB0ji^ffixTfjxo pais 
®>ex-^»5x-5'ias« ! ttiT)^n 
££*n*S»C«*TaSe»€* LT 

- nT<^gglSx-9<lSC^x.T®> 
Sfi© 

as=fe+»Tv ais«^®nist*®©5 


T fe =)> tfzL— 9 □ SzlT'T— 5/ 3 


m-ymmwyu^u 

(FM-8) 

10 RANDOMIZE (TIME) 

30 LET A= I NT ( 99*RND ( 1 ) + 1 ) 

40 LET B=INT(99*RND(l>+2) 

50 IF A=B THEN 30 
60 C=A*B 

70 PRINT A; ; B; 

80 INPUT D 

90 IF D=C THEN 140 

110 PRINT W 

120 INPUT D 
130 SOTO 90 

140 PRINT "tr-flM'r" 37 t" =F7i/9" 

150 BOTO 30 


wznn&'mmmzn&iott', u 

£<0(D9c£tf-m{zmzz>£.mz 2 

^<T4~5Ao 
tOfc.2A&lt©5tt£. 

x-k 

cp#©^#CD«^«CB»SraSCD 
AC3IZsBASIC©Atxr^^ffi 
-^TiASfflo =toyju , 7^L&?-( 
□AlZJJSZctic^ BgHfifftiir 
<£©£<, TWHATA ft/Jtf&flU S 

otffiB r u\-iwmyu7^^ oja 

h©)<f o -gfSm&ADA^Bo^fflaDo B 

±a©FM- 8 

HUCiJS-Sfi. 

RAND0MIZEtlV5©aaBt©Ji»l«B^S 
wr^&fflo a«€fP*fflttRND AUo W$£l -)£, 
znffircBfflnn u)isra J ^« , tbr<sfflo 
RANDOMIZE (R) £UTSI,VCRffifi«M. 
ZVZxLs a^a»5iJ^fmx<S©Ao IA5U5 
Rffie^Ansfflisto/ocif^fflrTiME^o^ 
!DoTIMEAl^M^CIS s /30^X>ezL-A^ 

30ftx 40^©LETAffl"LET"tl\e>A?K« 
«8DXt>©©©£CPAUArB1£BrcS&X\Z).:y 
en-?£Jt£tt£)o 99 * RNDISs RNDtf 0 A 
6 1 ^T*©a»^4^5fflr 2 9 

* RNDC3KS<t: 1 tfifflAIJ#C£»/J\^X©£ 

AOoiSK (EBEA'CBmAfflcfco l&CDlZtbX 
SOfiStt r %DA=B«630^eCSnj AOo 
*KT\ raO«ffl»d-*IZ«0>®l\<i:-5CDXt\ 
sfflo 6omra=i>£:i-?«A * Btswur 
CC^rffllB^AnSfflA OEJB^SOoXU^). 
70fT£PRINW3ts 


tu«*-3CBiBiz*jS»msr)o ast© r ?j 
®^<?CAtfBWUt«l«^OW-Sffl. 
K4300AAJ]^SA. JE(g£tf590m*D=C£ 
140fTC "tYS-fxA"' 
tgm$ns^DoS7f57f^'a\'5Aiioi3 / \u 

Ol "+f>^>7 i 5/5' " 

120fTCfc^BD©B(S)*A2)l^e»£, 130 
fTCt^-gs 90f5CR^TBJ©9-Sffl*o 
o©7n^^-cis. x^zftus^riqjgrt 
, c>0B?r*5C8-3‘a\sfflo zntfpAU*?© 
li^v&^x^icmmmizcD^z^tezTQ?? 
uzm,\mn a 



s* BASIC«»-3T;tVSA«5Sn€fetCaKS 
^T^tm&^yav^upiim&iOo ¥0®© 
^t;CCOLOR^^rfflS©e^gASDs 
BEEP^-CAtf— £«t5 015.0 * lOWPSfctf 
cbj^d-Cx ^y^tjy/vjoo 

30" tmmOJE’O o 

S $Btt35ffl<*/utfffi8£/3\2ors SM&cfcib 
S^AnrT 

SO" BEEP’P 

COLORfeAlJTo 

mm®yncr?^tzttmzz&muzb\<(D. 

&mmtz£z>zi5£immz&&u 

tm. a^ 

uyz Yfobfe, to va, m^/j 

h)1zhji&\< S^tfa ^T^TXS^©7f®^ \© Ao 
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Z>©tf 53SEIZ UT 

&a CB*«DB^^iwiiiZ)^-ctis*^.r 

TSIA)o RUNfclfC&Sl^'So 

40*68?fcttTC '®m\'Ottft c ?" iBlvC 

SE-a^o "CIS 2 f3)t o 

2«to£e>. 'lir^„ 2fS>£5»U£o 
g^AnrT^iv' tmsrUci; 0 his. zzr 

Sfflo 

IE*£An3£.C0NGRATULATI0NS/ 
(TTAxh-O) 0^0:65*67?. 3*fcfcl>T3&U 
a *ss*«,vc3-. t 

■3-SR90BixrT*u/" -ti/cfc-3— g *e 
fSKAOggtf?' tBt\-C**UCCy^h®)o 
** ^*00^5kreje©fio 
« «D©IZWJ>l/\S^An'C33<t> £©Httfe 

rai;Bnracip»^\tLv^^c^st»x 
Bironcasdifiifflc r *5tfi\j iz<r£t 


SH PC. (SI SUIT’D 

7 = 5L&xn-zd>izh)iz.& 0 5Q2pr^n l; z te 

tttfQ C'J^h@)o 
9 3‘L\/3VuPCCS£ffl«o 
* H A5 aAD^ 501 PC«B«XL-r4rPO 

MZEXE^-Sf^t&fflftSKtf tiJT 55. =6 

•3-gEXE«*W£ 0 IZ£fc§tf&.ZZrg£A 
nTEXE£#^£oS#^5tf DTlASi: 0 IZ 
fc£oTPK/g£g3<3-3#£>. IEWYS (Zffi 
HSB4345) fcAn^S£*0*©B»tf^ 
UT#S. «®BWC»Stt\-5|Xjr* 

** *»^'vh»JI»/\Z)lz»ctviai 


*3 

oS7?54a 0 



3c 3 eb. acstajiies/ufeasffls/ufeBtt 
u<r. Bfe3Mrcea<x:dB i B£tt©§su 
dt\c«:^T:^*ofcno ^©^67uizia$b 
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fcbnw&o 

seeBx gtsi4t:vcasB^*f»fex cn 
*T^^fe7D^Z^<M*L-'Ca5«8*tV 

*kae;*v>-hi;*>8u<*o Aizftt*5£toiz 

& *nTruMVj>!Ko ^□>ka<ac©-f>T:t' 
fiiNti^csaBsaca** 
besniMztUiiTOsSo ^ncA^^nu 
ctfc±i^5iziSs ^aseaj{f»»s/u»iao -& 

nBwtr*»att*a^^xPOPOOMtoil 

s*a 

e>nstv 

dCBfpnaixtiiorjtJiiBJcg-s^’fe v^nn 
Uo «Xf*CD»B05«t><5»a5aWSZ<t 
rn§siz&3£o&snu£^n^zA&, i &£ 


RfiHt x 39 + 1 = INT 


SILT Hir,2 rf GOT03 


IMVuE. HlTCfe^ 

J^i*^5tf8/u»Go khiCfe^Vfe 
1E<^\Z\tXW^mii1J^\,\^tM 6 
m% ®no/ a«&MzAHstft«^A-/t- 
□>ea-9, S 5 

□>tZa-5's9t^*CDI]>ti°3.-5'^r§SUT: 

%>eoia<r£o;e®izy 

3C Lr®/uZ:®A;oZffldlZ5Dcli<ttU<i:«o 
l ^ttSSSIZfe ASUBtlHIKa £>**©□ >^ZL 
^IZ:3l\Tfc$0oT:a3l\'CfcSUJ5l,\fflT\ 35 
W\BbTt\<^»; ^n<£935ffi£/v#\ AH 

-?:aS©ii£br j fc£o£S? dC^OSB 
B3Hto«i-\U> 

T-«fc% x/b-r-y 

3C OA^TtOHZZTib^o fc3^b»5bfe'ijSS 
&\3l\5Bl/C»tf3#5o 3KE0\ SoBtU 
^£<£S9 ®SS©teoe7Da5k«Wi US 
fcSJ&SU 

**fc% 2x->/ 5/?tW/ S - 
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Xbfiv- • 7n-y9- 0 Ii'7'n^7AT > HU 1 
□ > t" i - * mwitfm ubi t*'\ zziz2-oiify 
nfvAMBItlito -T^h LT¥ff‘J 

X*4-riCffi-5(7)tK '/’•y h'T'f f7tL i do 




' 10 PI=3. M 1 591 

120 TP=2*PI :TD=PI>32:B=220:B=60 
130 MODE GR:NP=0:MOUE 240,100 
140 FOR TH=0 TO TP STEP TD 
145 PCOLOR HP 

150 X=B*C0SCTH3 :T=B*SINCTH3 

160 LINE 240, 100, 240,0, 240+X, Y, 240+X, 100 

+Y, 240, 100 

170 NP=NP+ 1 : IF NP>3 THEN NP=0 

180 NEXT TH 

190 MOUE 0,0:PCOLOR 0 

200 MODE TN 

210 END 


I I E5ft*\ * 

1 <D**ti.7x4- 1 ft 5 A, 

i Lt’*'? 

fe C©t"-*UL MZ— 700 

©iom 

LflF CH>133 
THEN CH=CH+32*a*lT<*?3i.%*03S|& 
'>4r-7Tvizi2 y - y(m^D±myom§x:'i^ * 
Wi-T- 3-K* t 32rn-0.'4*'C,T'-ro 

f VLfc^RUNLT** LJ: d» 

*T7 % — 'American National Standard Code for 
Information Interchange 


***** 6->(M=2; 

F = 4 ) * a O rT-f 7 3 i> a 

***** 7 * 7 - 77 ? — 

7-9 — 9 >i> a ■? — <72-b>) 79 9 > 3 K 

->< 5* 99? >=»■■? A ? ('2 5’;3.yHt + r>^-'f- 

>)57 *> 5 try \ -?■ l/3-Kflfa- (o 

? ; ^ a— ^E— -> 3 >) 

***** /vya-f 3-1.0 2- ++•;/* — yy A 7 > 
..■b#Jh?T*7n-f-fy..f’tfiL-/\A7-H' 
*y-ya*-..t>'?.. 


***** 34tfy/ai/</7V-i' a 

?^?7 (/<?-3->/7-f37'J-A) a h/\-(a 
>-7a'2) 7? (Jn/yn -TP (->□/:?□) 

77/Th (V77?t) 

***** 74t7 7'— 7 


'>>730 = 1 58/ 7 -T 7 a. 7 = 47 B =80/W =57 
/H =88 ->D 3? = l.2(777#47>T-f JU)h 7 
¥(77>72A>-) -TV TaO#7faO(7 — 
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«.»«« 03 - 348-0269 


mmi%'<v 3 >mnj£*coM ,, t?'( 7 'yzfiti*teW'<v 3 >'> 3 'y 79 



frRa-tz*m'j' * v a 'smniz 

'J'ffl.m r PasocomShop Jo 'S7H?x.Tlit>W).&iiCD'<y=i>', 

xit: :2>kV-*x'f:7©-t^T4"^-t' UTtoDi-r. i/v\ 

irtEiL-CtoOi-n, V<’yrJ>|!5^''fc$»ir'J(: 

Mffi»-§'«i:«fIsn5^t^yh-fci-6'J'ffl.t. r PasocomShopj^ 




• #«yU'>yh*-K- agfr*— K 
S. Uz-tU&B nftAMiA i 


fya>‘U-xlO& | 

lttLh«/<y3>->*T/.E*t»t:L4T, J 


«* }ii'li8fl8BW)SSff offii-e, 





D-^'MU2S“zh 

fe$aa««3a^2iB 



© 

/l\EBM 

] «ffi 1 

TEL (342) IIU*tt* 



COMPUTER 

ASSISTED 

INSTRUCTION 


’fimitm#? 


C.A.I.tlJComputer Assisted Instruction©^"^ 
tUSitlEfclZS 

lO^Uo 


r«<j utisl ^is^AHraDSfcsstftsoisAs 

QfflrUo 

£<A $<Su ; 6U-d;^©ffia!]^®<i:UrfflO\'5©« t C. 
Ai4)g!*gr*Uo 





L'tl'Sv H©£P£toIA fA^SISASS'Vh?:* 
-K ■ □>fzL-5'— tz>57-^iSHU^USo 
r u>fzL-5'rii(Bisqrtg*? J zro^izfws 
SIS <Yes> tS^^UoL^Uv Dy£n.-5>T:\£Wm 

©src^a*®^ tuszts&esisao-Dru^g-o 

SixISv □>ezL-5't©^‘0i‘0^dr-y-K-Kri3 
s^eftv r 

z©v r ^ 


^<0<ia\im<!:IS®:IZtf?j tlNSra^ej^Lr, 

ASS'vh?*-- KiSv $B^nz2i8 mommy? 
h^j^susizsi o^yizo 
tuu ^miz\z r mmy^n.y-y3y ■ y u-Xj 
©ig^zziziim^u^o 
ftuffl v? h©»f uu3fm©!i£ ru- 

■=n-3-C’«'liK)i?ISv 5^W9IZIl!N'IF'9ffl£©- ££¥«© 
£ii-A-AIZ* S g-S©M-V:Ml/ • D^Uci— 
EG5Ct^L,Eo -&nB©3:>t:zi.— 90\ ffiifflffi 

gsturiSDnsztizsSo emus ny#s) 


X\-7"A~7*-Y'1>\d=L-9— T336 ;ifnmm;*W2-36-l5 Q0488(85)5222(Aftg|) 


Stt aT<»*«l*^#£tj^200P5^S-llii«_h. Stt* ? p V%i T-fiEfs Li£*T3 \.\ 




tt#rt m 

maxell. 

W*T-’7 

7o -y t *-T4X* MX. • **«*S 


^p a p(7)tJtsW7(7)^Jf 0 

•f tl*\ U"<(7)7P7t- 0 



«#**/3S»S+AE«tt3-3-lTl04B03-567-6221(«#*if4wr«*lit<S^F-Pe«' 








24ffi-io ±99 <7)ioM>?!3i: 

J2IM 


£*li. *1*6 i»S~®«BM4. #«W(f 

*t:*a4io*»#«*m. *«*-r 
it6ts, temaefitKift. «***fi* 
24m. itawuio «»i-r «*.«•**« 

5-;>^r®iss ttfcaaffi. *on 

RAlUfflUS-rk 9l®7’n7'7A* t ffl* 

«). •*7-3:'7 : ffl®jc«i:.l:4.7-a4’'7 

Am**+<.T7«7n*A-< 

640(320) X200 

h'»h.K»hCfti:*fe -Tift (8ft). 
0^774-7 jS-rii, 640 X 200 l-V h3»B. 

400 K7M>*Wft*i«i. 

mm, mst 1 

77, ttamHAEi 

4. •+- 7/K 'M7m'**&7'7 
747^*W«***. xJ—Xttrw* 





★ SrfccCP M -Him ch M-ii t'C'iw *s n tc •■'•7 htitc ». 

• 74 7'7<}-i?~nm< /'?(. >0 (cp/m® iify ';*-*a©a»ffi*Kri-). 

:®-6'-**<r-7’>3,OOOI‘l©X'<-x|-777^-72<7-7->3,0OOI I )®T&Ex^i-f;i-<T-7->4.OOOI'l®l i y M*— 7- - ? — >3,6001'! 5 i„K**-SWI<f— 7 >4.200IM©« 
- ' 7 <t-7*>4.200W®«¥SM<t- 7'>4,200H :®MY FILE/D<f'4X7>39.000P)(-(>r' /777 T -(/i-t's,a+-7®*- KflrtSSI/GRAPH PAC T<r-7‘) 

(SSffi’C'T'-^A*. «U’7-77*>12a«)®SUPER FONT/T<t-7 , >9,800|i|(A-' l )7A-X'/- r-A-.-«->4f(t:*rSS) : all BASIC T<7 — 7">14,800 

l*»BASIC474rr»4r.3>4»47) ®TIA R<ROM'*77>35,OOOiq<ea» t )«j£fbU6«=>>''"(7) 'll:?® >i:®EDAM T<7-7> 9,8001-IIZ 80 7-tS7'7. * ll x. r" ( * t* 
ZDBC/T<7-7-)9,800l'KZ 807^>igr'-f.y#-)®DUTY<7'4X7>14,800l>l(7n-yf-r'4X73— 74VT4) ■:. : ® <7'( A ?> 45.000I 1 ] 1 IT. (Mil 1® „i'c VC 

■BHaMfeitt^7A<7'4X7>150,OOOFi|(|!t.ef,5E500n--.iaj,ii4,800Ai)®W«&jt-7XrA(7(A» .120.000l>l(milHI250.«S90«[|)®ia43|-9:<7'4A ?> 100,0001*1 ( 11 

£250 A. 4 1a* 1 I »* » I i S»t ■ » -1 - J - ' ~ s 1 ’ -3 "-i'-I ' 

4f Mii. r -'7 1 * 70 ^ 4 - a-fcMa.'Oc. «c K -eASiOT*»-7-»7W-AftW)ii»lM»ftfTr. 


sV^'AmMWW. 





• l2 - yj->CRT(FP-iooi) ¥ 39,800 

• 14’*7-CRT(FP-1002> ¥ 79.800 


• I4-«****7-CRT(FP-ioo4) ¥ 98.000 

• I4-**«S*7-CRT<fp-ioo3) ¥168,000 

• n-®#4SFDD- 1 K7-f7(FP-i02iFD)¥ 75.000 

• Sffi(S®#FDD- 1 K5-f7(FP-i022FD)¥ 98.000 

• i^ffilSWSFDD- 2 K7-f7 ( FP-1023FD) ¥ 198,000 

• 4ftSo:/ay77’'J>'7<FP-ionpU ¥ 34.800 


• VxTH-y'r?') >?< FP-101SPR) ¥ 59.800 


•T r 77^777'J>7iFP-ioi2PR) ¥139,800 

•*¥®077<fp-iouprk) ¥189,000 

•C/MOS-RAM84-p7ifp- 1030) ¥ 40.000 
•EP-ROMffl/4y7iFP-i03i) ••¥ 10.000 

•*¥ROMxnV7ifp-io32K) ¥ 35.000 

•RS-232O4-77IFP-1035RSI - •■¥ 25.000 
•iNJBS®#7?x<FP-i060io> ■ • ¥ 65.000 
# 1)-J1,^;-KIFP-1040UBI ¥ 4.900 
•CP/M(FPCP/M-5) ¥ 29.000 



FP-IOOO FP -1100 

¥ 98 , 000 (S ¥ 128 , 000 (S) 


n?*7rrmt&t£xX^*i 

t l60*&fB*HtEB$Ht2-6- 1 Sf7i1±at'lPa03 (347) 481 1 (ft) 




PQPCQMffiiSV7S^ I 

35*03^0 

ZhU'JIW&VbiU 

/KXD^tf«t*A;^3V:7M3:10 *>©&£ s SSl^l^KU. 335* 3 d& 

* 0 PK'O^V-^'-^* ’PO'J^'J fett* <if®V7hlZh^-t / ^^ 0 
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SXx'J- MX 



is»«^rs££3ott?;pK^>:^-^-^©APm 



tu 7Ucfco ^SfetfiairtcneSK ®rfe&&£®se>£ 35 | oeg'£>;Oo k^fk^a y \^/ 3M»>tr>x 710/ 
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nimcraf^M 



TJi/ • v-uxxx&am&s. v^hc«-a &/n»jo&Pty* jl-iu^^z^'^p^ 



mmAP^mom^cmn-o^o mzxua&mto 


A^f'J? 17^-7 



/ Wxu;p« 8 W£iis<rs / 3 dQ£is 3 «ra*B£«*i>0:i, 


A>V- ?l/-<2 


Apollo Technica 
PC- 8001 



I'Vs O'yv-./dF-p'y/y^/^ffi© (?) JXy^— ZX-<Upy^l5.^mt.iio 
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■t 'jft-i- v* W'Zi fe #e> 


•*>«)£> tl&l' / 


937 >^h>\ 7 i"““(ON LINE SYSTEMS) I 


APPLE II 


7 ti 

yyTOutzffRS/ f 

/K'Oft-y 
-A*<*3£?t„ — «S<75*tlSX'fo . 
rtg£«4)-LfcK*fc,J: < Ji4ttS2A 
7 7* K7>7 K^>^^-*8^IB*<7) 
irtit, r *^iBj r i#sjciej x 
hzzt, rftfc*<7)*g*ti}4lA, fc - 
* -5 4>f £ g A *«litX Bv ^ 

S (5 7 t> 77-fl- A<fr*»4 1'fc' *> -j „ 

ir#8¥LXfcC-),, 

?T, zn'f-Acn/ty'r-vlzr) 
L'TI'-S )«Si3tA<Sfc, iftLixi 
C **SH3J* 2*5 3: ‘J 4t'0>£. 

>* K>*4‘bJlt:i:&fc ‘;t>£TU <* 
U t nfcBJ^a>S?-ti-5(7)* ! gSD'b Ll' 
B^C7)TK'<>* + — y— 
A<n*Tt£ rqvVKSj 4£Jl*>fc 

lb4'l'„ 37> Ktftojb'TXl'tttf, 

)®5iJ*t*-g-fe-e-«ltX*t.> 44‘;<nfc 

X«l'Xl'ttS<7>C o »# 

Afc(ll<, *<b^5*Sllc:tt44L 
Xl'4*atf4^4Ufcfe'7*srC\ * 
SEWT” 


L 4 U 37 
> K (4(3 £ A,Zt) < Wlisl<n%&.fr1kt>-ti:lz 
4oXl'50)X\ 

Xfcltl* -f£SMSX#£„ 


ws.t>(r>*n*> ttj-r 


*?-M-*(¥l(ffl). JlCEflMfcfclS 
$Lx j f' 5 tea*«^'jxi '< 0 i 
t\ *7-H®7 i -<7)C^'tlC^f-K 
*t£ 

m L* 4 A«a. Ltff, <i^^ 77 U 
X*<fc7„ »S4j&<ibift@*f*j*l,X 

g «■*< if C7) i 9 4 A* 5: L X £ tz 4 
.5- ‘J £ t; fc t'«-g-ic (i. A* 4' L X\ fe 
It 

4;8/LX> £¥/B:t47 4U'-fc.4-?X 
<5 (¥£@)o ‘INVENTORY’ 

£A*-f?>i:, -nsx-c¥i;.i.nfc 
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Kt£r>X\.'iTo X I (nmm-VUlt 

Tfc<A ^<7)T-'¥<>Stt<7)SI21/) 5 T 
mnst. •=7’im$ffl utzx i <7)fe 
liS^U/'t-X-ftf. P-XU'yFWfc 
It (¥* I )„ 

X I It. =!>#-*> F 5"fy<n/\- 


*-;Kr-y;u(3 
*§0 TlSft, y (i <c L *<T # 5 J: -7 
sttsnu'it. f-fxyi/'fB, 
«[£®(IfcX-#SL. 

« BffiSa * 7 -x -i- ^ y n- c fc 4 ' u v 

(7-/\---f>tf-Xfcl.'-j) fcx-i* 


yarn. *#», CPU-®- 
Tj-tr-y F7-yf7 + »*Jofc3> 
fc'i-^g5*i:+-/K-KSP^*'P>« 


if ftli80tfr K -y F 7 r IJ > * - fc 
^5.25-r >fU7P7 £-x -f * 

2K7-ry (2 &**£«) t*t„ it# 

C5C7P.ytr-«. 2^«r«Ci'< 
x, s*^t$nTi'S-r (¥H2)o 
h£#S.S:p*;2?- 

£B£l'T« r^TtfUBCEilSftT, 
I'S-r («3. 4). 



ACZ-800P(y; >?-)fcCZ-800F( 5 "7 □ y f-) 


¥^3 

i ._ 


• ••** 

■ ■ a 


ACZ -800C ( 7 > fx - 7 SI5) <7)¥® 


¥«4 



▲CZ -8000 (x-f ^A-f )<7)?T® 


@A— K9x7?g)tttSI X 


(C Z-800C) OTftti*-* I C 
SLt Lfc X ‘J §80 o > 
1’>CPU1J4M Hz<7) Z 80 A , ft^C 
PUZLX I 

fk xUf • *-fe-y F P> I- P-JUffl 
C I 

ROM6K/H K RAM74K/N'-rh 
^'7 f '> a >X - ?’x 7 -f 
-y^fflR AM48K/W F AWnT# * 
T. Ctny|-7'->3>R AM«-ffll'S; 
tCiO. 640X200 K-y I- I *B, 8 
£ * x - CD 7 x 7 -f -y 7 £ * L «> S T „ 
320X200 K-y F4'*b, 8fe%-2®S® 
T ZttTZZls ZblZ, «74 
"yJRAMS-Xt'J-xiJTZLTf 
"5 fc 46(7) op# (OPTION SCREEN 2) fc 
ffljt^nTL'Sfo 
ft«<7)4>CP.-¥-S:lS+ xx?? 
-yi^U-?-IRAM6 K/\*-r F 


fc l' 7 «*)<£> S - fc A' fcfcA'S fc fc ‘A 
X I Cl i, P C G (AA7A • 
4=t7?7-yiit^-) 

P-— tF-tfg[6C* 
X 7 ? ? -/<7 - > £ $#T # 5 #7 It 
TT„*2p<7> ROMtt7^7 -255* 
fWT^Tl;, 8ft*7-P)A?-> 



)fcB^*'fb?nxL'i 


+F7> F’fc, PS Glfffi I C (V 7 
F p> h p-7K7)BttL) CJ:y*« 
WifenfctCoXl'JT. 
#•-7 p P^7A^rj|fl^X•^«■*L■* 
t L i 

v 7 f x-f&tx- # 5 if*' y X4 < , x 

LXfcflj] 

Jt'ytWPyt-T-fX#^ 
<757 X -f JK7) S A V Ef$<7>1t*fc LX 
fe®f>nxi'it„ 

^#<7>aa?A'ib. c<7)ffict,. <± 

< SftXl'SfcmfcJBHfciJftiT,, 
f-lxA-frl/t' (CZ— 800D) 
<7>ft#£*2C, 7 r y>5'- (CZ- 
800P)<7M±«£*3 C, 5P7Pyf 
-x-f 7? Kx-ry (C Z— 800 F) (7) 
ft«££3l4C2fctf>3i Lfc„ 
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7< 

V 

1 

CPU 

ROM 

RAM 

Z— 80A(4MHz), 80C48, 80C49 

IPLffl - 4K /« 4 

* + 2KA-I' 4 

zAffl 64K/<< 4 

tWH 4K/<-f 4 

6K/«4 
-48K/<-f Kl7ya>) 

« 

7F 

fll 

* 

t+AHU 

80^X254t, 403^X2544 

se, &x. tm 2 isicfsisi 

*7-8fe(£3C'i(:ffiS:) 

*7- 

797-f y7Wj? 

(*/->3» 

640 X200 K -y 4 1 H® 

320 X200 K-y 4 21® 

7)7-8fe( K-y 4CiC«® 

640 X 200 K -y F 31® 

320 X200 Kyi- 61® 

*7- 8 fed® -•£!;«£) 

s®^ 

-r+X hl®t/77< -y ^B® 

41®i7'77-f ■yi’Sffit^Utl® 
t+a Hii?777 -y?l®l; t'fli® 

*<*>« 

77 1 1 - ') T 4 -mt R.G.B.-fe/ <1 — hW7j^5t 

* 

<n 

flb 

(7) 

« 

a-fe-y 4 
u-a-7'- 

77UQ-7-y 7«a>a5Srt* 
v-V-TPWM^it 

fejSSf 27001?- 

■*'7> K,*#»UJ» 

81-77 -7, 3Wg, 300mW 7 f- A-F*9j® 

?') >9- Hr 

t>ha-7x4±f±«s>i* 
8t’-y 4'?7 IWU 

i >m4X9-4-»9 H 

X7V*±tt«0M* 2ffl 

tm ' 0 i?-h 

*»rtC4l?- 1- ©#i»Jfl6( 1- 7-> 3 » 

mstmt 

-■y* KWltCT /?y77y1 

■;«*** 

28W(1-7->3>*mi150W) ACIOOV 


r>7-)-xti 

R.G.B.A* 

spam 

«*** 


UHF I3~62ch 

75Q UHF 200£2 


71 W ACIOOV 
390X385X338mm, 12. 6^ 



t 390 («)X 332 (JMT)X 108 (S£)«™, 5 . 7 kg 




asci i *«**■#) 

X>4=— V7U+— ,77^-> 

k.bbhbw 

>3>^~ 

t 390 X 189 X 53 mm, 1 . 35 kg 





:?0'i/fc :-5V7^ 

800F 

K7l7» 

2K71’7 

ie» 

5.25-f 

47-y7» 

80 1- 7 -y 7 

«» 

327KA-C 4 >- 4 

iswe* 

2IW ACIOOV 

tan 

390 X 330 X 54mm, 5.6^9 


★ffiST *fc»Cliai«OT8S*l 01?- h 
(CZ— 8EP)frJ: t/l/FTj— K (CZ— 8FA) 

tf&si. 


ElA— K»x7g)8Uas X 


K’5x7<n'>^fA?’-('t?’7 

A£li] I C^LSTo 

£ ©L' i T<7>T\ 

*7-> a >ffliH3?R 0 MC-Ol-'TiS^. 

JU7. 

-ffl £ S> a -r 7 t- -f -y 7 2 lifl-ti#* 
i>9 


-7i-7|j, yj >?-ffl<T-7 r 7U 

-fe>hp-7*tt 

-f>7-7i-3S(nEiii/o,i!-h 
tt, *#a>fcT;i-7gBCrtirC#% 
<t7SttSn>47D'y hiTI****,, 
s -ya-y f— T'-f 
Cl i, #£*1/0,1?- KCZ-8EP) 
Z4>7-7x-3#- K ( C Z — 8 
F A ) *<-£'# TT„ 


If.ROM (C Z — 8 K R) fcHJfc 
SnXl'TJ I S $ I *2*0)315:2965 
:?£, UbWK • U9-hi- • US? 1 • 
Se^fcif«"£tf>3707X5:aM*;n #£* 
i /oi?- # cgar * j: i an-# nt 

K-y HHJ$11I6X 16 K 7 hi: 
tt-i TfciJ, BAS I Cfribt®?' 1 ! 3 
nail:, KANJ i $3r^A'fflS 
3tmat. 



XI CD 



3 X10DBASIC x~ 


X I <7)BASIC(i. C 2- 8CBOIVI.O 
££ h5X> < '71.'TI.'T. SHARPS HUDSON 

soft Hbj#atwy7 h£*t) OTftra® 
ftiz£t>b(nT-T<, v-aTJUT-l i. 
SHARP HuBASICJ:*!f)'nTI.'S 
~ (75 C 1 1' b t ti U. HuBASICff) 

Sittr-fo &*<79SHARP BASIC<7)^^ 
i7-f?PV7h *<ftBASIC<7>SSi;4?CDB 

* j: -j »tt$ nxi' * t „ 

X ITU, ■$■$ T(7>/<va> tit-3 

^ftf)Sp>hn-W 6 fc«in#> 
^flWyfcfc^fcfc-sTl'jET. C- 
Tti. 

iiLii. 

( 1 )xb£©!lglZHg-£l 5 p^ 

I CHANNEL n 1 + trU? 

h„ n= I ~I2 (■^ + >*JL),, 

I CRT n I : B®S$„ n= 0 (xU 
£»&). n= I (P>t?x-? 


Bffi). n= 2tiUf4 (JX-'X 
~f >*-*)„ 

I TVPW I : TUt'<7m : £<n*> • 
*7 

ft *<x> ?>!*)„ 

I VOL n I : ^*3 > F □ -Xl/„ 
n = — 62~63„ 

I SCROLL n I : *-/<— f >#- 
X^wa^t’a-^iinx? 
□ -9L„ n= — 3 ~ 3 o 

( 2 ttrtzyh^-^ll«CBWS« 

I CMT = n I :*t7hW«®3>h 
P-JU 0 n= 0 (EJECT). n= I 

(STOP). „ 

I CMT I : * -tz -y F 
I EJECT I : Xj-tr-y F KT(7)5f-y 

I CSTOP I : *-tr -y h „ 


I FAST I : Xj-fe-y F <7)^21 ‘J, 

I REW I : Xj-fe-y F U 

I APSS n I : Xj -fe -y F <X>SifcB U 
n= — 50~50. n< 0T*#t>if 
lXt-yX.n> 0T¥&‘)7* 
•y-f. n liXtyXS. 

I DATE $ = "w/mm/dd”l 

K$„ 

I TIME $ = "hh:mm:ss" I : B$5 iJ<7)I£ 
$ (**«#)„ 

I DAY $ = "XXX ,7 1 : « 0 X) t$ 

(fl) : SUN, MON ). 

I ASK I : BffiJiT-<X)5''r'7-i9:® 0 

<A)*V^05>-V3L*ls-5>-® 

I CGEN n 1 
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FIJ5 0 n= 0 
K), n= I (P 

CGt- K)o 

I CGPAT $(n) 1 :*7 x??-7i 

* 7- ? U 

n it.mmrz*-**???- 
OTIOiln- Ko 

1 DEFCHR $(n)=HEXCHR $(*--HE)P- K7-? ::: T] 
-3- h\ *J2<7)H EX3-K 

t ’-fit, n. m. m<nmiz, 

24/W h ( I h x 3 

ft) «•«:»$ LS To 

(5)-5:©<te©^®®S^r 

|CHAINY7yTA-7-r*?V7 , ?:)77-OUg , | : 

*i<cyp^7A^L'<7!!i'i: 

b<n-fn A|B]t-£»€ £ rt 

U It^LitT, 

I MERGE*t77-f;Ux-f7»'j77 : )77-r;ug' | : 

t 7 r 4 XK7) 7' □ ^ x A * * -tf 
£-*xt*T.8f Ll'^Q 7x A£fE 
v gToZtnz ?,77-f >\/<n~f 
□ a t > -r ><7)y p ^7 a 

<7)ir#-Sy *<-& L fcfrtt, 7 X -T 
JKTXli -5 *><«£;? ft* T„ 

I CLICK OFF 1 : *— xtf— K*'b<7) 

Aft^fciSLiT,, antis 

rCUCK ON L 

I CREV 1 1 : ffitfeAx-Ccfc* 

Ktegi^.ai)§t* [~CREV 0 L , 

I CSIZE n I : 4 X<T> 

H ^(pffeo^e x 


IEs5o n= 0 iy-VXHfc^K 
n= I (*2«3t¥)» n= 2 (ft 
2®3t^), n= 3 (4fgX50„ 
PRINT# 

INEWON &HXXXX~I : BASIC x * 7 
h <n% IS7 K 77 *fg£ L £T„ 

yp^yA, ^sai-r^r^u 

7#n5WT;iI. 

I OPTION SCREEN~T1 :;Xx7-ry? 

f JUiiLT® * -5 *-}(:: L*T 0 
7 ^ 0 - Jl( 7) 7 x -r 71/ t£<n T-S5 
*7^-tz7*<^T«6T-To tt»« 
lOPTION SCREEN 1 H Hgiafea t 
SI*, INIT *MEM:* tl'7&i? 

*ji*tU wjwKJtu uftu 

*MEM:7 r 4 CD®T-®I.' 

*T„ 

I STICK (n) 1 :y3-fXf<7? 

n= 0 (x>*-), 11=1,2 (-7 
a-f 7x-f -y ? I , 2 )„ 

I STRIG (n) I : 7 a-fXT< -y 7 
<75 F Utf-T-* fcli*-*- 
K <7) 7 7 * -*><}¥ 3 #IT I.' 

jf?nt 

uat#- i , *<nmt o 0 

lPALETft<fr, PRWap tT| : Iil8 
&W^77-fy?E-Kt®* 
x-/<7y htSZi:??** <J 
T *r -tSZn^TTo SMfflti 
**&„ 

I CANVASlfcx , LAYERS? t?! : feSU 

W3i i^77-f'y?t- KT* 
<7>ftx-«£2:«$fc*H4*;£(7> 
^T-f„ 


I SCRN $ (x.y.nTl :7*U-> jS 
®-L<7> (X,Y) ^A'lbCOX^^r 
n£3:i5!*fflTM»o BASIC T 
»f< -y MMI *8-3 7 7 
SC^^tT-To 
ISEARCH 3t53iTl : BASIC if X I- 
<7)+A'ib, X^JUT’fg^LfcS: 
^IJ*<#£TS?r*# L til L B 
BBjSLST. -f 

P^yAWf/Jy/l:®*^ 

Sr-S-PLJ:-). 

I PEEK® (7 K 77) | :H®fflR 

A M<7>|tyg*fit*ffi*im, 7 
K 7 7 ti3t^95A ! &H3000, 7 V 
•J tfx- I- * < &H2000T-to 
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100 REM DOWN SCROLL FOR PC-6001 
110 CLEAR 300.&H8FFF 
120 FOR I=&H9000 TO &H9016 
130 READ A$ s D=VAL ( " &H " + A$ ) 

140 POKE 1, 0s NEXT I 
160 FOR 1=1 TO 5 
170 X= I NT ( RND ( 1 ) *32 ) 

180 LOCATE X , 0 s PR I NT " . " j 
190 NEXT I 
200 EXEC &H9000 
210 GOTO 160 

220 DATA 21, OF, 83, 11, FF, 83 
230 DATA 01 ,E0,01,ED,B8,06 
240 DATA 20, 3E, 20, 21, 00, 82 
250 DATA 77,23,10,FC,C9 
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PC-880ir«x**hVH^AMff>^>>-t 
u-icaBsetotURffliMfw-o ifiaox^ta 
yzytttf, 4rot¥©»efc-fc©ss »S5*. 
yyymyu9yiA#Juy-yim&z^ 0 wwn, 

PC-8001T*«> T^F^hlU ?<D'P^l/73ft 

tfmytsttnt* oar5L/&&mm 
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100 REM DOWN SCROLL FOR PC-8801 
110 CLEAR 300, &HCFFF: WIDTH 80 
120 FOR I=&HD000 TO &HD01F 
130 READ A$ : D=VAL ( ‘ &H " +A$ ) 

140 POKE I.DsNEXT I 
150 DEF USR=&HDOOO 
160 FOR 1=1 TO 5 
170 X= I NT ( RND ( 1 ) *80 ) 

180 LOCATE X,0 SPRINT" . " ; 

190 NEXT I 
200 A=USR(0 ) 

210 GOTO 160 

220 DATA 21 ,07,FF , 11 ,7F,FF,01 , 40 
230 DATA OB, ED, B8, 06, 50, 3E, 20, 21 
240 DATA C8 , F3 , 77 , 23 , 10 , FC , 3E , 00 
250 DATA 77 , 23 , 77 , 23 , 3E , 4F , 77 , C9 
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220 DATA 21 ,3F ,FE , 11 ,B7,FE»01 ,40 
230 DATA OB, ED, B8, 06, 50, 3E, 20, 21 
240 DATA 00 ,F3,77,23, 10,FC,3E,00 
250 DATA 77 , 23 , 77 , 23 , 3E , 4F , 77 , C9 


MZ-80B.80B2.2000 

MZ-80B, 80B 2 , 2000ISU^n : fe7 1 «hV 

x«hV-RAM©PR^^ia$DOOO &&T&<D 
■Cx^tU-tTdF^KV-RAM (DWOtfTL&fj^ 
cnm/OTK-h$E8©e'vh7 
co(s§ri]>hn-;u'cs^^o datax©^ 
>S©1 ~6/Wht29/KhetfKf*©tD«9»^. 
;U~5 1 >r^ 0 C7CK756/«*aO) 

100 REM DOWN SCROLL FOR MZ-80B2 
105 REM SO COLUMN MODE 
110 CONSOLE C80sM=10*16*16*16sN=35 
120 FOR I=M TO M+N-l 
130 READ A* s GOSUB 300 
140 POKE I, D: NEXT I 
160 FOR 1=1 TO 5 
. 170 X=INT(RND< 1) *80) 

180 CURSOR X , Os PRINT" . " j 
190 NEXT I 
'200 USR < M ) 

210 GOTO 160 

220 DATA DB,EB,CB,FF,D3,E8,01,80 
230 DATA 07, 1 1 , CF, D7, 21 , 7F, D7, ED 
240 DATA B8, 06, 50, 3E, 20, 21, 00, DO 
250 DATA 77,23, 10, FC,DB,E8,CB,BF 
260 DATA D3,E8,C9 
300 D=ASC < LEFT* ( A* , 1 ) ) 

310 60SUB 350tDH=D 
320 D=ASC ( R I GHT* ( A* , 1 ) ) 

330 GOSUB 350«D=DH#16+D 
340 RETURN 

350 IF D<58 THEN D=D-48 
360 IF D>57 THEN D=D-55 
370 RETURN 


MZ-80K2E.80K2.K/C 

MZ-805xU-Xtt>.-t'». ; EU-i:ffl$ DOOOtf 
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100 REM DOWN SCROLL FOR MZ-80K2E 

110 M=8* 16*16*16: N=56 

120 FOR I=M TO M+N-l 

130 READ A*: GOSUB 300 

140 POKE I, D: NEXT I 

160 FOR 1=1 TO 1 

170 X=INT (RND ( 1 > *40) 

180 CURSOR X,0*PRINT 
190 NEXT I 
200 USR(M) 

210 GOTO 160 

220 DATA CD, A6, OD, 01 , 60, 01 , 11, E7 
230 DATA D3, 21 , BF, D3, ED, B8, CD, A6 
240 DATA OD, 01, 60, 01, 11,87, D2, 21 
250 DATA 5F , D2, ED, B8, CD, A6, OD, 01 
260 DATA OCP, 01, 11,27, D 1,21, FF, DO 
270 DATA ED, B8, CD, A6, OD, AF, 06, 28 
280 DATA 21, 00, DO, 77, 23, 10,FC,C9 
300 D=ASC (LEFT* ( A*, 1 ) ) 

310 GOSUB 350! DH=D 
320 D=ASC (RIGHT* (A*, 1 ) ) 

330 GOSUB 350:D=DH#16+D 
340 RETURN 

350 IF D< 58 THEN D=D-48 
360 IF D>57 THEN D=D-5S 
370 RETURN 
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100 REM DOWN SCROLL FOR FM-8 
110 CLEAR 300, &H7FBF: WIDTH 80,25 
120 FOR I=&H7FC0 TO &H7FFC 
130 READ A* : D= VAL ( " &H " + A* ) 

140 POKE I, D: NEXT I 
150 M=&H7FC0 
160 FOR 1=1 TO 5 
170 X=INT (RND < 1 ) *80) 

180 LOCATE X,0: PRINT 
190 NEXT I 
200 EXEC M 
210 GOTO 160 

220 DATA 30 , 8C , OD , 33 , 06 , EF , 02 , 9D 
230 DATA DE, 33, 88, 14, EF, 02, OE, DE 
240 DATA 10,00,00,00,00,20,00,00 
250 DATA 15, 07, 01, 00, 00, 00, CO, 02 
260 DATA 7F, OO, C7, 02, OO, 00, 3F, 59 
270 DATA 4 1,4D, 4 1,55, 43, 48, 49, 93 
280 DATA D3, BE, DC, ID, 83, 02,80, DD 
290 DATA ID, FD, D4, OE, 39 
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Lfflttx V-RAM2f^T*-i'>* ; EU-±e 
ZZ&Bti&Stl MU 

mzn&vxmmafo'o&itivo 
JI/t-K'Wtfx 40?C^5I 
jBWCtfo r cattail***, 

cra? i 5Li/&Q*mm 

100 REM DOWN SCROLL FOR LEVEL 3 
110 CLEAR 300, &H6FFF: WIDTH 80 
120 FOR I=&H7000 TO SH7018 
130 READ A# : D=VAL < " &H" +A$ ) 

140 POKE I, D: NEXT I 
160 FOR 1=1 TO 5 
170 X=INT<RND*80> 

180 LOCATE X, 0: PRINT " 

190 NEXT 

200 EXEC &H7000 

210 GOTO 160 

220 DATA 8E, OB, 80, 10, 8E, OB, DO, A6 
230 DATA 82, A7, A2, 8C, 04, 00, 22, F7 
240 DATA 4F, A7, 80, 8C, 04, 4F, 23, F9 
250 DATA 39 
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cjb-stuycs i /OTK-h^aur^-tz^tzi^ 

hlD— ./L/^fjU^^'o CTPCT^/flS® 


100 REM DOWN SCROLL FOR PfiSOPIfi 
110 CLEAR r &HF000 
120 FOR I=ScHF080 TO &HF07F 
130 READ fl$ : D- v'AL< "S-:H"+A$ > 

140 POKE I, D’ NEXT I 
150 CLS* WIDTH 80 
168 FOR 1=1 TO 5 
170 X=INKRHD<1>*80) 

180 LOCATE X,B’ PRINT 
180 NEXT 

^popcomt 7 / ri^cnr } ta r £3f* l-cBS < 


200 A=&HF000 : CALL A 
210 GOTO 160 

228 DATA DD,2R,75,F0,3E,0C,D3,10 
230 DATA DB,11,67,3E,0D,D3,10,DB 
240 DATA 11,6F,06,00,DD,7E,0C,4F 
258 DATA ED, 42, DD, 75, 00, DD, 74, 01 
260 DATA E5,E5,2A,75,F0,01,1E,01 
278 DATA 09,46,78, 16, 07, FE, 01, CA 
230 DATA 3B,F0,16,37,FE,04,CA,38 
290 DATA F0, 16, 3F , 23, 4E, El , C5, E5 
300 DATA DD, 7E, 0C, 47, F3, 3E, 20, D3 
310 DATA 01 , CD, 77, F0, 7D, D3, 00, 7C 
320 DATA A2,D3,0A,CD,77,F0,3E, 40 
330 DATA D3,0A,FB,23, 10, E6, El, Cl 
340 DATA 79,84,67, 10, D9, El, 3E,0C 
358 DATA D3, 10,7C,D3, 11 ,3E,0D,D3 
368 DATA 10,7D,D3, 1 1 ,C9, 13, FD, DB 
370 DATA 09, DB, 09, E6, 40, 20, FA, C9 
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100 REM DOWN SCROLL FOR VIC- 1001 
110 M=3*1S#16+3#1S+12 : H=49 
120 FOR I=M TO M+N-l 
130 READ A# -GOSUB 300 
140 FOKE I , D : NEXT I 
1 50 C$= " 

160 FOR 1=1 TO 5 

170 PRINT LEFT # < C# , RND < 1 > *22+ 1 ) i 

180 PRINT •*." 

190 NEXT I 
200 SVS M 
210 GOTO 160 

220 DATA A2 , E5 , BD , FE , 1 E , 9D , 14, IF 
230 DATA BD, FE, 96, 9D, 14, 97, CA, D0 
240 DATA F 1 , CA , BD , FF , 1 D , 9D , 15, IE 
250 DATA BD , FF , 95 , 9D , 1 5 , 96 , CA , D0 
260 DATA F1/A2, 16, A9, 20, 9D, FF, ID 
270 DATA R9, 01 , 9D, FF, 95, CA, D8, F3 
280 DATA 60 
300 D=ASC < LEFT# < A# , 1 > ) 

310 GOSUB 350 : DH=D 
320 D=ASC<RIGHT#<A#, 1>> 

330 GOSUB 350 : D=DH#16+D 
340 RETURN 

350 IF D<58 THEN D=D-48 
360 IF D>57 THEN D=D-55 
370 RETURN 

< (2194-<— : t'^'l O 
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ff 


1 save ' MAZE " 


10 60SUB *SY0KI I 

20 GOSUB *TITLE 

30 GOSUB *RULE ! 

40 GOSUB *MAZEPRINT ♦ 

50 ' 1 

60 *MAIN 

70 GOSUB *D. CHECK I 

80 GOTO «S. CHECK } 

4000 ' 2 

4010 *SY0KI : COLOR ,1 

4020 DIM AX(27,23> :XP0S=3sYP0S=22:DI RECT = 1 : S0S=3 :KEYH=0:D$(1)=“0I" :B$<2)='Z+“ “ :( 
0$ C 3 ) = ■ :.'9 • : D$ ( 4 ) = ■ t?" T : R ( 0 ) =&H0 : P < 1 ) =&H87 : P C 2 ) =&H95 : P C 3 ) =&H96 : P C 4 ) =&HF0 s P ( 5 ) =&Hf 
ED : P ( 6 ) =&HEC : P C 7 ) =&H0 : P$ ( 0 ) = ‘ ’V0n " :P$<:i) = - JJV ‘ :P$(2)=" 1"7' :P$(3) = , 1“7 1 I 

4025 RESTORE *DATA1 :REM wDATAl 9 *DATA2 I JllAl 7D7H" V/yttZ, 

4030 FOR 1=0 TO 22 ! 

4040 FOR .J=0 TO 26 i 

4050 READ AX(J, I) i 

4060 NEXT 

4070 NEXT: RETURN | 

4075 *DATA1 ♦ 

4080 DATA 0,0, 0,0, 0,0, 0,0, 0,0,0, 0,4, 0,0,0, 0,0, 0,0, 0,0, 0,5, 0,0,0 i 

4090 DATA 0, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 . 1 ,2, 1 , 1 . 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ,2, 1 . 1 ,0 
4100 DATA 0,1, 0,0, 7,1-, 0,0, 0,0, 0,0, 0,1, 0,0, 0,0, 0,0, 0,0, 1,0, 0,1,0 J 

4110 DATA 0,1, 0,1, 1.1, 0,1, 1,1, 1,1, 0,1, 1,1, 0,1, 1,1, 0,1, 1,1, 0,1,0 4 

4115 DATA 0,1, 0,0, 0,1, 0,0, 0,0, 0,1, 0,0, 0,1, 0,1, 0,0, 0,0, 0,0, 0,1,0 i 

4120 DATA 0,1, 1,1, 0,1, 0,1, 1,1, 0,1, 0,1, 1.1. 1,1, 1,1, 0,1, 1,1, 0,1,0 
4130 DATA 0,1, 0,0, 0,1, 0,0, 0,1, 0,0, 0,0, 0,0, 0,0, 0,1, 0,0, 0,1, 0,1,0 [ 

4140 DATA 4. 3. 0,1, 1,1, 1,1. 0,1, 0,1, 1,1, 1,1, 1,1, 0,1, 1,1, 0,1, 1,1,0 t 

4150 DATA 0,1, 0,0, 0,0, 0,1, 0,0, 0,1, 0,0, 0,1, 0,1, 0,0, 0,1, 0,0, 0,1,0 f 

4160 DATA 0,1, 1.1, 0,1, 0,1, 1,1, 0,1, 2, 1,1, 1,0, 1,1, 1,0, 1,1, 1,0, 1,0 
4170 DATA 0,1, 0,0, 0,1, 0,1, 0,1, 0,1, 0,0, 0,3, 0,0, 0,1, 0,0, 0.1, 0,1,0 j 


1 , 0 . 3, 4 
. 0 . 0 , 0 , 1 , 0 , 0 , 0 , 1,0 
, 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1,0 
, 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1,0 
1,0, 1,1, 1,0 


4180 DATA 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1,0 
4190 DATA 0,1, 0,1, 0,1, 0,0, 0,1, 0,3, 0,0, 0,1,0, 

4200 DATA 0, 1 ,0, 1 , 1 , 1 ,0. 1 ,0, 1 , 1 , 1 , 1 , 1 ,2, 1 . 1 , 

4210 DATA 0,1, 0,0, 0,0. 0,1, 0,0, 0,1, 0,0, 0,0,0, 

4220 DATA 0. 1 ,0. 1 , 1 , 1 ,0. 1 , 1 , 1 , 1 , 1 , 1 ,0, 1 , 1 , 1 , 

4230 DATA 0, 1 ,0, 1 ,0, 1 ,0, 1 ,0,0, 0,0, 0,0, 0,0,0, 1 ,0,0, 0,0,0, 0,0, 1 ,0 
4240 DATA 0, 1 ,0, 1 ,0, 1 ,0, 1 , 1 , 1 ,0, 1 , 1 ,0, 1 , 1 , 1 , 1 ,0, 1 ,0, 1 , 1 , 1 , 1 , 1 ,0 
4250 DATA 0, 1 ,0,0,0, 1 ,0 ,0,0,0, 0,0, 1 ,0,0, 0,0, 1 ,0, 1 ,0, 1 .0, 1 ,0, 1 ,0 
4260 DATA 6, 1,0, 1,1, 1,1, 1,1, 1,1, 0,1, 6, 1,1, 0,1, 0,1, 1,1, 0,1, 0,1,0 
4270 DATA 0, 1 ,0,0, 0,0, 0,0,0, 1 ,0,0,0, 0,0, 1 ,0, 1 ,0,0,0, 0,0, 0,0, 1 ,0 
4280 DATA 0, 1 , 1 ,0, 1 , 1 , 1 , 1 , 1 , 1 , 1 . 1 , 1 , 1 , 1 . 1 , 1 , 1 , 1 , 1 ,2, 1 , 1 , 1 , 1 . 1 ,0 
4290 DATA 0,0, 1 ,6, 1 ,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,4, 0,0, 0,0, 0,0 
4500 ' 

4510 *TITLE 
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4530 COLOR 2s LOCATE 7,2 SPRINT ' 

4540 COLOR 3sL0CATE 7,3 SPRINT 'iV#! M "V. 
4550 COLOR 4sL0CATE 7,4 SPRINT ”■ " “ 

4560 COLOR 5s LOCATE 7,5 SPRINT '■ 

4570 COLOR 6s LOCATE 7,6 SPRINT ”■ 

COLOR 7 s LOCATE 7,9 SPRINT ”■ 

COLOR 6s LOCATE 7,10sPRINT '■ 

COLOR 5s LOCATE 7, 11 SPRINT 

COLOR 4s LOCATE 7, 12 SPRINT ”■ 

COLOR 3s LOCATE 7,13sPRINT '■ 

COLOR 2s LOCATE 13,16sPRINT 1 i 

LOCATE 13, 17sPRINT ” I L E V E L — 1 
LOCATE 13,18sPRINT ' 


4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
5000 ' 

5010 *RULE 

5020 PRINT CHR$( 12) sUIDTH 40,20 
COLOR 2s LOCATE 1,1 SPRINT ‘ 


5030 

5040 

5050 

5060 

5070 

5080 

5090 


6030 

6050 

6060 

6070 

6075 

6080 

6090 

6100 

6110 

6120 


MAZE HOUSE— < LEVEL 1 > — * 

COLOR 5 s LOCATE 0,4sPRINT ‘O 797"? fl 9 M-tf T'V'fZ f'f 77“94. - 

LOCATE 0.6SPRINT ’O \-fiOZ h"7 fl" 7972. 4- »” t“739 ?“2.‘ 

LOCATE 0,7 SPRINT 1 77” 4- 9 93”57 ??"94.” 

LOCATE 0 ,9 SPRINT "O r? J A39 Z 94*> J 4A (-30 »* 7977.’ 

LOCATE 0,10 SPRINT 1 37 b'7 9 77AK 7574 7” 2.” 

LOCATE 0 , 12sPRINT 'O (r“-A J I'4i9 f“ 2 »4 77“ A-l- 9 

7“ 472 * SPRINT SPRINT 
5100 PRINT ’HIT SPASE KEY TO START ” 

5110 IF INP(9)=191 THEN 5120 ELSE 5110 

5120 PRINT CHR$( 12) s LOCATE O.lOsPRINT ”43 43 5i9/\°"7 7”2. 7 97“94” 

5130 FOR K=0 TO 3000s NEXT 
5140 RETURN 
6000 ' 

6010 *MAZEPRINT 

6020 CONSOLE 0 ,25,0 , 1 sUIDTH 40,25sPRINT CHR$( 12) s COLOR 2sSD=0 
FOR I=&HF3C8 TO &HFE18 STEP &H78 
FOR J=0 TO 52 STEP 2 
POKE I+J,P(A*CJ/2,SD)) 

NEXT 
SD=SD+1 
NEXT 

LOCATE XPOS , YPOS SPRINT ’*■ 

LOCATE 29.13SPRINT ‘ <7939>" sLOCATE 29,15sPRINT D$(DIRECT) 

LOCATE 0 ,23 SPRINT ’ 7.9- V ' s LOCATE 30,0sPRINT ’3”-A-0 - 
LOCATE 10,23sPRINT ”7h ” ;S0S-1 ; ”»4 3 9 5A3 KD " ?“477.’s 
6125 S0S=S0S-1 s' LOCATE 0,0 8 RETURN 

6130 FOR K=0 TO 3000sNEXTsPRINT CHR*(12) 

6140 RETURN 
6500 ' 

6510 *D. CHECK 

6520 ON DIRECT GOSUB *FRONT,*RIGHT ,*BACK,*LEFT 
6530 RETURN 
6540 ' 

6550 *FRONT 

6560 X(1)=XP0S sX(2)=XP0S+l sX(3)=XP0S sX(4)=XP0S-l 

6570 Y< 1 )=YP0S-1 s Y(2)=YP0S s Y(3)=YP0S+1 s Y( 4 )=YPOS 
6580 GOSUB *R . CHECK 
6590 RETURN 
6600 *RIGHT 

6610 X( 1 )=XP0S+1 s X(2)=XP0S sX<3)=XP0S-l sX(4)=XP0S 
6620 Y( 1 )=YPOS s Y ( 2 ) = YPOS+1 s Y ( 3 ) =YP0S sY(4)=YP0S-l 
6630 GOSUB *R. CHECK 
6640 RETURN 
6650 *BACK 

6660 X(1)=XP0S sX(2)=XP0S-l sX( 3 )=XPOS sX(4)=XP0S+l 

6670 Y( 1 )=YP0S+1 8 Y(2)=YP0S s Y( 3 )=YP0S-1 8 Y(4 )=YPOS 
6680 GOSUB *R. CHECK 
6690 RETURN 
6700 *LEFT 

6710 X(l)=XP0S-lsX(2)=XP0S s X(3)=XP0S+1 sX(4)=XP0S 

6720 Y< 1 )=YPOS s Y(2)=YP0S-1 8 Y(3)=YP0S sY(4)=YP0S+l 

6730 GOSUB *R. CHECK 

6740 RETURN 

6750 «R. CHECK 

6760 FOR 1=1 TO 4 

6770 0<I )=A5£(X< I ) ,Y( I > ) 
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GOTISi ■ • 36*) 


6790 RETURN 
6800 *S. CHECK 

6810 IF 0C1)=6 THEN *SCENE.01 
IF D<1)=5 THEN *SCENE.02 
IF D(l)=4 THEN *SCENE.03 
IF D(l)=7 THEN #SCENE . 04 

IF DC4>=1 AND D(l)=l AND D(2>=1 THEN #SCENE.05 

IF DC4)=1 AND DC 1 )=0 AND D(2)=l THEN *SCENE.06 

IF D(4)=l AND (DCl )=2 OR D(l)=3) AND D(2)=l THEN *SCENE.07 

IF D(4)=l AND DC 1 ) = 1 AND 0(2)=0 THEN *SCENE,08 

IF D(4>=1 AND D< 1 )=1 AND (DC2)=2 OR D(2)=3) THEN *SCENE.09 

IF D(4)=0 AND DC 1 > = 1 AND D(2)=l THEN #SCENE.10 

IF CDC4)=2 OR D(4)=3) AND DC 1 ) = 1 AND DC2) = 1 THEN sSCENE.ll 
IF DC4)=1 AND D ( 1 ) =0 AND D(2)=0 THEN *SCENE.12 
IF DC4)=1 AND DC 1 )=0 AND (D(2)=2 OR D(2)=3) THEN *SCENE.13 

IF D(4)=l AND ( 0 ( 1 ) =2 OR D(1)=3I AND DC2)=0 THEN *SCENE.14 

IF D(4) = l AND C D C 1 ) =2 OR DC 1 >=3> AND (D(2>=2 OR DC2)=3) THEN #SCENE.15 

IF D(4)=Q AND D(1)=0 AND D(2)=l THEN *SCENE.16 

IF (0(4!>=2 OR DC4!i=3) AND DC1)=0 AND D(2)=l THEN *SCENE.17 

IF D(4)=0 AND CDC 1 )=2 OR D C 1 5 =3 ) AND DC2) = 1 THEN *SCENE.13 

IF (8(41=2 OR DC4)=3) AND (D(l)=2 OR D(l)=3) AND D(2)=l THEN *SCENE.19 
IF D(4)=0 AND DC 1 ) = 1 AND 0(21=0 THEN *SCENE.20 

IF D(4)=0 AND DC 1 ) = 1 AND CD(2)=2 OR D(2)=3) THEN *SCENE.21 

7020 IF ( D C 4 ) =2 OR D(4)=3) AND D C 1 > = 1 AND D(2)=0 THEN *SCENE,22 

7030 IF (DC4)=2 OR D(4)=3) AND D C 1 > = 1 AND (D(2>=2 OR D(2>=3> THEN *SCENE.23 

IF D(4)=0 AND D(1I=0 AND DC2)=0 THEN *SCENE.24 
IF CD(4)=2 OR D(4)=3) AND 0C1)=0 AND DC2)=0 THEN *SCENE,25 

IF (DC4)=2 OR 0(4)=3) AND CD(1)=2 OR DC1)=3) AND DC2)=0 THEN *SCENE.26 

IF (D(4)=2 OR D(4)=3) AND CD(1)=2 OR DC1)=3) AND (DC2)=2 OR D(2)=3) THEN 

SCENE. 27 

7080 IF D ( 4 ) =0 AND CD(1)=2 OR DC1)=3) AND D(2)=0 THEN *SCENE.28 

IF D(4)=0 AND (DC 1 )=2 OR D(l)=3) AND (DC2)=2 OR D(2>=3) THEN *SCENE.29 

IF D(4)=0 AND D(1)=0 AND (DC2)=2 OR DC2)=3) THEN *SCENE.30 
IF (D(4)=2 OR D(4)=3) AND D(n=0 AND CD(2)=2 OR D(2>=3) THEN *SCENE.31 


6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 


7040 

7050 

7060 

7070 


7090 
7100 
7110 
7120 
7130 ' 

7140 ' 

7150 ' 

7160 ' 

7900 LOCATE 0.0: PR I NT " SCENE =19D7" 

7910 PRINT ■t'TU A ‘ ;P* (DC4) > ; 'r^- 
7920 PRINT -71 A • ;P$(D( 1) ) j 'r‘7" 

7930 PRINT A ’ ;P$CD(2)I ; 'f'T.' 

7940 ' 

7990 *D. INPUT: WIDTH 40 

3000 *0. I NPUT1: SCREEN 0,0:LDCATE 30.11:PRINT ’ SOS ■ ■ 5 ‘ : LOCATE 36,5:PRINT ’ 1 " 
8010 LOCATE 36,6:PRINT T 
8020 LOCATE 34. 7: PR I NT ‘4-J-2‘ 

8030 LOCATE 36, 8: PR I NT T 
8040 LOCATE 36, 9: PRINT - 3- 
8050 LOCATE 20, 19: PR I NT ‘776 *W 

8060 LOCATE 20,20:PRINT ■? yy" S' W : LOCATE 20,21 :PRINT - 
8070 LOCATE 20,21: INPUT DD 


8090 IF DD<1 OR DD>5 THEN BEEP: GOTO 8070 
8100 IF D(DD)=1 THEN 8110 ELSE 8150 
8110 LOCATE 10,2:PRINT - JJV J Zl\ 77/7ty - 

8120 BEEP 1 :FOR K=1 TO 1000: NEXT: BEEP 0 
8130 LOCATE 10,2:PRINT ■ 

8140 GOTO 8070 

8150 IF D(DD)=2 OR D(DD)=3 THEN 8160 ELSE 8210 
8160 IF KEYH=0 THEN 8170 ELSE 8210 
8170 LOCATE 10,2:PRINT - 7T9 A *- 7 
8180 BEEP 1 :FOR K=1 TO 1000: NEXT: BEEP 0 
8190 LOCATE 10,2:PRINT - 
8200 GOTO 8070 

8210 IF D(DD)=7 THEN KEYH=1 :GOTO 8290 
3220 IF DD=5 THEN 3230 ELSE 8290 
8230 IF S0S=0 THEN 8240 ELSE 3270 
8240 LOCATE 10, 2: PR I NT =*□ KA x"=t=7ty.' 

8250 BEEP 1 :FOR K=0 TO 1000: NEXT: BEEP 0 
8260 LOCATE 10, 2: PR I NT - OGOTO 8070 

8270 60SUB *MAZEPRINT 
3280 GOTO 3000 


') X F 



8290 :<P0S=>: (DO) : YPOS=Y (DO) 

8300 DIRECT=DIRECT+DD-1 : IF DIRECT>4 THEN D I RECT=D I RECT-4 
8310 GOTO aMAIN 

8999 END 

9000 aCLS.G 

9010 SCREEN 0,1: OUT 104,0:CLS 3: SCREEN 0,0: RETURN 
10000 ' 

10010 aSCENE .01: GOSUB *CLS.G:GOSUB aA.l:GOTO aSTART 
10020 aSCENE. 02: GOSUB aCLS.G: GOSUB aA.l:GQTO *60AL 
10030 aSCENE. 03: GOSUB aCLS.G: GOSUB aL ION: GOTO aENDSUB 
10040 aSCENE. 04: GOSUB aCLS . G : GOSUB *A. 2: GOSUB *KEYBOX:GOTO aD.INPUTl 
10050 aSCENE. 05: GOSUB aCLS.G: GOSUB * A. 3: GOTO aD. INPUT 
10060 aSCENE. 06: GOSUB aCLS . G : GOSUB * A. 2: GOTO aD. INPUT 
10070 aSCENE . 07 : GOSUB aCLS . G : GOSUB aA. 3: GOSUB *A.11:G0T0 aD. INPUT 
10030 aSCENE . 08 : GOSUB *CLS.G: GOSUB * A. 4: GOTO aD. INPUT 
10090 aSCENE. 09: GOSUB aCLS . G : GOSUB * A. 3: GOSUB * A. 10: GOTO *0. INPUT 
10100 aSCENE. 10: GOSUB aCLS.G: GOSUB * A. 5: GOTO *D. INPUT 
10110 aSCENE .11: GOSUB aCLS.G: GOSUB * A. 3: GOSUB aA. 12: GOTO *0. INPUT 
10120 aSCENE. 12: GOSUB aCLS.G: GOSUB * A. 6: GOTO #0. INPUT 
10130 aSCENE. 13: GOSUB aCLS . G : GOSUB * A. 2: GOSUB * A. 10: GOTO *0. INPUT 
10140 aSCENE. 14: GOSUB aCLS.G: GOSUB *A. 4: GOSUB *A.11:G0T0 aD. INPUT 
10150 aSCENE .15: GOSUB aCLS . G : GOSUB * A. 3: GOSUB * A. 10: GOSUB *A.11:G0T0 *D. INPUT 
10160 aSCENE. 16: GOSUB aCLS.G: GOSUB * A. 7: GOTO *0. INPUT 
10170 aSCENE. 17: GOSUB aCLS.G:60SUB aA.2:60SUB aA.12:G0T0 aD. INPUT 
10180 aSCENE. 18: GOSUB aCLS.G: GOSUB a A. 5: GOSUB aA.ll:GOTO aD. INPUT 
10190 aSCENE. 19: GOSUB aCLS.G: GOSUB aA. 3: GOSUB aA.U:GOSUB aA.12:G0T0 aD. INPUT 
10200 aSCENE. 20: GOSUB aCLS.G: GOSUB a A. 8: GOTO aD. INPUT 
10210 aSCENE. 21: GOSUB aCLS.G: GOSUB aA. 5: GOSUB aA. 10: GOTO aD. INPUT 
10220 aSCENE. 22: GOSUB aCLS.G: GOSUB a A. 4: GOSUB a A. 12: GOTO aD. INPUT 
10230 aSCENE. 23: GOSUB aCLS.G: GOSUB aA. 3: GOSUB a A. 10: GOSUB aA. 12: GOTO aD. INPUT 
10240 aSCENE. 24: GOSUB aCLS.G: GOSUB aA.9:G0T0 aD. INPUT 
10250 aSCENE. 25: GOSUB aCLS.G: GOSUB aA. 6: GOSUB aA. 12: GOTO aD. INPUT 
10260 aSCENE. 26: GOSUB aCLS.G: GOSUB a A. 4: GOSUB aA.ll:GOSUB a A. 12: GOTO aD. INPUT 
10270 aSCENE. 27: GOSUB aCLS.G: GOSUB aA. 3: GOSUB a A. 10: GOSUB aA.ll:GOSUB aA.12:G0T0 
aD. INPUT 

10280 aSCENE. 28: GOSUB aCLS.G: GOSUB aA. 8 -.GOSUB aA.ll:GOTO aD. INPUT 

10290 aSCENE. 29: GOSUB aCLS.G: GOSUB aA. 5: GOSUB aA. 10: GOSUB aA.lliGOTO aD. INPUT 

10300 aSCENE. 30: GOSUB aCLS.G: GOSUB aA. 7: GOSUB a A. 10: GOTO aD. INPUT 

10310 aSCENE. 31: GOSUB aCLS.G: GOSUB aA. 2: GOSUB a A. 10: GOSUB a A. 12: GOTO aD. INPUT 

10320 ' 

10330 ' 

10340 ' 

10350 ' 

10360 ' 

20000 ' 

20010 aA. 1 

20020 LINE (0,0) -(208, 65) ,7:LINE(208.65)-(208, 135) ,7:LINE(208, 135)-(0,199) ,7:LIN 
E (639,0) -(432, 65) ,7:LINE (432,65) -(432, 135) ,7:LINE(432, 135)-(639, 199) ,7:LINE(20S, 
99)-(432,99) ,7 

20030 P A I NT ( 340 . 1 60 ) , 4 , 7 : P A I NT ( 320 , 50 ) , 5 , 7 : RETURN 
20040 aA.2 

20050 LINE (0,0) -(639, 199),7:LINE(0, 199) -(639,0) ,7:LINE(272,35)-(368, 1 15) ,7,BF 
20060 PAINT (320, 160) ,4,7:RETURN 
20070 *A.3 

20080 LINE (0,0) -(208, 65) ,7:LINE(208, 135)-(0, 199) ,7:LINE(208,65)-(432, 135) ,7,B:L 
INE( 432, 65) -(639,0) ,7: LINE (432, 135) -(639 ,199) ,7 
20090 P A I NT ( 320 , 1 60 ) , 4 , 7 : RETURN 
20100 *A.4 

20110 LINE (0,0) -(208, 65) ,7:LINE(208,65)-(208, 135) ,7:LINE(208, 135)-(0,199),7:LIN 
E( 208, 65) -(528, 65) ,7: LINE (208, 135) -(528, 135) ,7:LINE(639,0)-(528,35) ,7: LINE (528,3 
5)-(528, 165) ,7: LINE (528, 165) -(639, 199) ,7 
20120 PAINT (320, 160) ,4, 7: RETURN 
20130 aA.5 

20140 LINE(0,0)-( 112,35) ,7:LINE( 1 12,35)-( 1 12, 165) ,7:LINE( 1 12, 165)-(0, 199) ,7:LIN 

E (639,0) -(432, 65) ,7:LINE(639, 199)-(432, 135) ,7:LINE( 1 12,65)-(432, 135) ,7,B 
20150 PAINT (320,160) ,4,7:RETURN 
20160 *A.6 

20170 LINE (0,0) -(272,85) ,7:LINEC0, 199)-(272, 1 15) ,7:LINE(272.85)-(368, 1 15) ,7,BF: 
LINE (368, 85) -(432, 65) ,7:LINE(432, 135)-(368, 1 15) ,7:LINE(432,65)-(528, 135) ,7,B:LIN 
E (639,0) -(528, 35) , 7 : LINE (528, 35) -(528, 165) ,7:LINE(528, 165)-(639, 199) ,7 
20180 PA I NT ( 320 . 1 60 ), 4 , 7 : RETURN 
20190 aA.7 

20200 LINE (639,0) -(368, 85) ,7:LINE(639, 199 >-(368, 1 15) ,7:LINE(272,85)-(368, 115) ,7 
,BF: LINE (208, 65) -(272, 85) ,7:LINE(272, 1 15)-(208, 135) ,7:LINE( 1 12,65)-(208, 135) ,7,B 
iLINE(0,0)-( 112,35) ,7:LINE( 1 12,35)- ( 1 12, 165) , 7:LINE(1 12, 165)- (0, 199) ,7 
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2 20210 PA I NT (320 , 160 ) ,4, 7: RETURN 

♦ 20220 *A.8 

{ 20230 LINE(0,0)-(112,35),7:LINE(112,35)-(112,165) , 7:LINE( 112, 165)-(0 , 199) , 7:LIN 

; E( 639,0 )-( 528, 35) ,7: LINE( 528,35 >-(528,165) ,7iLINE(528, 165)-< 639, 199) , 7 :LINE( 112 , 

♦ 65 )- ( 528 , 135 ) , 7 , B 

♦ 20240 PAI NT( 320 , 160 ) , 4 , 7 i RETURN 

} 20250 *A.9 

2 20260 LINE(0,0)-(112,35),7:LINE( 112,35)-( 112, 165) , 7:LINE( 112, 165)-(0 , 199) ,7:LIN 

♦ E(112,65)-( 208,135) ,7,B:LINE(208,65)-( 272 ,85 ) ,7:LINE( 208, 135 )-(272, 115) ,7 :LINE(2 

2 72, 85 )-( 368, 115 ) ,7,BF 

» 20270 LINE( 368,85)-(432,65) ,7:LINE(368, 115)-(432, 135) ,7:LINE( 432,65 )-( 528, 135) , 

♦ 7,B:LINE(639,0 )-(528,35) , 7:LINE(528,35)-(528, 165) ,7:LINE(528, 165)-(639, 199) ,7:PA 
{ INT( 320, 160), 4, 7: RETURN 

♦ 20280 *A. 10 

2 20290 LINE( 448, 140 )-( 448,65) ,7:LINE(448,65)-(512,50 ) , 7:LINE(512,50)-(512, 161 ) ,7 

♦ : CIRCLE (460 ,99) ,4,7,0 ,6. 28: PA I NT (500 ,99) ,2, 7: PA I NT (460 ,99) , 6, 7 i RETURN 

2 20300 »A. 11 

1 20310 LINE (280 ,70 )-(360 ,135) ,7, B: CIRCLE ( 290 ,99) ,2,7,0 ,6. 28: PAINT (320 ,99) ,2, 7s PA 

♦ I NT (290 ,99) , 6, 7 i RETURN 

♦ 20320 #A. 12 

♦ 20330 LINE( 128, 160 )-( 128,50 ) ,7: LINE( 128,50 )-( 192,65) ,7sLINE( 192, 65)-( 192, 141 ) ,7 

2 : CIRCLE ( 180 ,99) ,4,7,0 ,6. 28: PA I NT ( 150,99) , 2, 7 : PA I NT ( 180 ,99) ,6, 7 (RETURN 

♦ 20340 ' 

2 20350 ' 

; 20360 ' 

} 20370 ' 

♦ 20380 ' 

J 28000 *START 

2 28010 LOCATE 5, 2:PRINT ’29-K Z tr 972.9! !<!!!! ’ 

♦ 28020 LOCATE 10,3:PRINT ’f 9Y9F” 797*2, ?”2’:END 
2 28030 *KEYBOX 

} 28040 LINE( 272,85)-(368, 115) ,2,B 

♦ 28050 LOCATE 18,11:C0L0R 2:PRINT "KEY' s LOCATE 19,13:PRINT ’BOX’ : RETURN 

♦ 30080 *G0AL 

J 30090 LINE( 0 ,0 )-( 208,65) ,7:LINE(208,65)-( 208, 135) ,7sLINE(208,135)-(0, 199) , 7:LIN 
J E(639,0 )-( 432,65) ,7:LINE(432, 65)-(432, 135) ,7: LINE (432, 135) -(639, 199) ,7 (LINE (208, 

♦ 99)-(432,99) ,7 

2 30100 PA I NT (320, 165) ,4, 7: PA I NT (320, 35) ,5,7 

} 30110 TA=20 : Y0=200 : 00=50 : GOSUB *HANABI 

} 30120 TA=20:YO=440i 00=50: GOSUB «HANABI 

♦ 30130 TA=20:Y0=320: 00=120: GOSUB *HANABI 

2 30140 COLOR 7: LOCATE 5,10:PRINT ’3”-A O T'X. ?'59 ’:EN0 

2 30150 *HANABI 

♦ 30160 BEEP 1 :F0R 1=0 TO 200: NEXT: BEEP 0:K=1 

2 30170 FOR J=2 TO 00 STEP 3 

; 30180 COLOR K:K=K+1:IF K=7 THEN K=1 

♦ 30190 CIRCLE(YO.TA) , J,K 

♦ 30200 NEXT 

J 30210 RETURN 
2 30300 *LION 

♦ 30310 LINE(276,20 )-(320 ,52) ,7:LINE(320 ,52)-(428, 16) ,7:LINE(428, 16)-(412,50 ) ,7:L 

2 INE(412,50 )-(524,56) ,7:LINE(524,56)-(460 ,86) ,7:LINE(460 ,86)-(520 , 104) ,7:LINE(520 

’ , 104) -(472, 120 ) ,7:LINE(472, 120 )-(492, 146) ,7:LINE(492, 146)-( 440 , 148) ,7 

} 30320 LINE( 440 , 148)-( 448, 168) ,7:LINE(448, 168)-(392, 160 ) ,7:LINE(392,160 )-( 364, 19 

♦ 0 > ,7:LINE( 364 , 190 )-( 316, 164) ,7:LINE(316, 164)-(240 , 184) ,7:LINE(240 , 184)- (252, 154) 

2 , 7:LINE(252, 154)-(208, 141 ) ,7:LINE(208, 141 )-(228, 136) ,7 

} 30330 LINE(228, 136)-( 128,130),7:LINE(128,130>-(212,96) ,7:LINE( 212, 96 )-( 168,62) , 

♦ 7:LINE( 168, 62 )-( 252, 68) , 7 :LINE( 252, 68>-( 276,20 ) ,7 

2 30340 LINE( 260 ,80 )-( 292,86) ,7:LINE(292,86)-(392,80 ) ,7:LINE(392,80 )-(430 ,66) ,7:L 

♦ INE(430 ,66 )-( 420 ,80 > ,7:LINE(420 ,80 )-(456, 142) ,7:LINE(456, 142>-(380 , 150 ) ,7:LINE(3 

} 80, 150 )-(350, 144), 7:LINE(350, 144 >-(328,154), 7:LINE(328,154)-(260, 150), 7 

♦ 30350 LINE( 260 , 150 )-(276,96) ,7:LINE(276,96)-(260 ,80 ) ,7:LINE(280 , 104)- (344, 98) ,7 
2 :LINE( 344,98)-(324, 146) ,7:LINE( 324, 146 >-(380,141 ),7:LINE( 380, 144)-(360,98),7:LIN 
J E(360 ,98 )-(420 ,94 ) ,7 

4 30360 CIRCLE( 316, 115) ,20 ,7,0 ,6.28:CIRCLE( 396, 108) ,20 ,7,0 ,6.28 :CIRCLE(328, 113) ,8 

2 , 7,0,6.28:CIRCLE(384 , 110 ) ,8,7,0 ,6. 28: PA I NT (328, 113) ,0 ,7:PAINT(380 , 110 ) ,0 ,7 
} 30370 PA I NT (316, 115) ,5, 7: PA I NT (396, 108) ,5, 7: PAI NT (320 ,70 ) ,6,7:PAINT(320 ,90 ) ,2,7 

2 30380 L I NE( 192, 126)- (312, 142) ,3:LINE( 164 , 160 )-( 312, 147) ,3:LINE(268, 194)-(312, 15 

♦ 0 ), 3:LINE(384, 135)-(496, 110 ), 3:LINE(380, 144 >-(496,135), 3:LINE(390, 150 >-(496,190) 

2 ,3 

J 30390 RETURN 
4 32000 *ENDSUB 

{ 32010 FOR J=1 TO 1000: BEEP 1:BEEP 0:NEXT 

2 32020 LOCATE 10, 10: PR I NT ‘7t9 A Z 97U759 ! ! ! ’ :END 
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Programed by K.Okano and I* 


7 CLEAR 300 . &HCFFF : DEFUSR=&HDOOO 

8 CONSOLE 0,24,0,1 :G0SUB 11000 

10 WIDTH 80, 25: CONSOLE 0 , 24,0 , 1 :C0L0R 7,0,1:PRINT CHR$< 12) :SS=0 

12 FOR J=&HD000 TO &HD07F :READ A$:P0KE J , VAL ( ‘ &h ' + A$ ) : NEXT J 

15 DIM D(4) :D( 1 ) =&HFF89 : D < 2 ) =&HFF87 : D < 3 ) =&H77 : D< 4 ) =&H79 : 0=1 : PL=&H32 : PR=&H23 

17 Y=&HF9C0 : DY=1 : DD=&HFBEC : Z=1 

20 PA=&HFD77 : BA=5 : SS=0 : AX=4 : AY=3 : 0X=1 

70 GOSUB 900 

80 IF INKEY$=‘ " THEN 80 
92 DD=DD+3 : AD=DD : POKE AD.&H66 

100 NA=AD+D ( D ) : Q=PEEK ( NA ) 

101 POKE &HD032 , &H60 : A=USR( 0 ) : AX=AX+DX : POKE &HD031,AX:IF Z>0 THEN 102 ELSE 103 

102 POKE &HD032.&H40 :Z=Z*(-1 ) : A=USR(0 ) :G0T0 104 

103 POKE &HD032.&H50 :Z=Z*( -1 ) : A=USR(0 ) 

104 V1=RND( 1 )*12: IF V1>11 THEN DX=DX*(-1> 

106 IF AX<5 THEN DX=1 ELSE IF AX>70 THEN DX=-1 

110 IF INP(0)=191 THEN GOSUB 1100 'PADDLE RIGHT 

^H< 


★ »-fe x M»— KX/ r :M ')T>7 d^j (PC-8001, 8801J55) coXHr-y h t-ex £ LT^ £1% 3S# 
lilim, 500(3 (%ft£ $Lii.*7£li, 194-^— £ r fcA < ftf? 


149 ‘ 




'PADDLE LEFT 
'PADDLE RIGHT 
'PADDLE LEFT 
'BALL NEXT 
'BLOCK 1 
' CORNER! L) 

' CORNER! R) 

'TOP 

'SIDE 

'PADDLE RIGHT 
'PADDLE LEFT 


115 IF INP! 01=239 THEN GOSUB 1200 
120 IF INP!0)=191 THEN GOSUB 1100 

125 IF INP(0)=239 THEN GOSUB 1200 

130 IF Q=&HO THEN GOTO 1300 

140 IF Q=&H33 THEN 1500 

160 IF Q=&HEC THEN 1600 

170 IF Q=&HCE THEN 1700 

180 IF Q=&HEE THEN 1800 

190 IF Q=&HFF THEN 1900 

200 IF INP! 0 >=191 THEN GOSUB 1100 

210 IF INP! 0 >=239 THEN GOSUB 1200 

220 Q=PEEK(NA) : IF Q=&H32 THEN 2000 ELSE IF Q=&H23 THEN 2050 
230 IF Q=&H24 THEN 2100 'BOTTOM 

240 GOTO 3000 
300 GOTO 100 

800 FOR J=&HF442 TO &HF532 STEP &H78:P0KE J.S.H3 iPOKE J+&H1 ,&H98 iPOKE J+8.H2.&H4C 
iPOKE J+&H3.&HD8: NEXT: RETURN 

810 FOR J=&HF442 TO &HF532 STEP &H78iP0KE J,&H3iP0KE J+&H1 ,&H58iP0KE J+&H2.&H4C 
:POKE J+&H3.&H08: NEXT! RETURN 

900 FOR J=&HF350 TO &HF028 STEP &H78 iPOKE J , &H0 i POKE J+&H1.&HD8 iNEXT 
902 POKE &HF3CA , &H2 : POKE &HF3CB.&HD8 

904 FOR J=&HF78A TO &HF87A STEP &H78 iPOKE J.&H3 iPOKE J+&H1.&HD8 iNEXT 
906 FOR J=&HFB4A TO &HFD2A STEP &H78:P0KE J,&H3:P0KE J+&H1,&HD8:NEXT 
910 POKE &HFDA2 , &H2 : POKE &HFDA3.&H98 

920 FOR J=&HF442 TO &HF532 STEP &H78 iPOKE J,&H3!P0KE J+&H1 ,&H58:P0KE J+&H2.&H4C 
iPOKE J+&H3 , &HD8 : NEXT 

925 FOR J=&HF622 TO &HF712 STEP &H78 iPOKE J.8.H3 iPOKE J+&H1 ,&HB8:P0KE J+&H2.&H4C 
iPOKE J+&H3 , &HD8 : NEXT 

930 FOR J=&HF8F2 TO &HFA02 STEP &H78 iPOKE J.&H3 iPOKE J+&H1 ,&H78 iPOKE J+&H2.&H4C 
iPOKE J+&H3 , &HD8 : NEXT 

940 POKE &HF5AA.&H3 iPOKE &HF5AB.&H38 iPOKE &HF5AC , &H4C i POKE &HF5AD , &HD8 
1000 POKE &HF37A , &HEC i FOR J=&HF37B TO &HF3C3iP0KE J,&HEE iNEXT Ji 
POKE &HF3C4.&HCE 

1010 FOR J=&HF3F2 TO &HFCDA STEP &H78 iPOKE J.&HFFiNEXT J 

1015 FOR J=8tHFD52 TO &HF09C iPOKE J.&H24 iNEXT J 

1020 FOR J=&HF43C TO &HFD24 STEP &H78 iPOKE J.&HFF iNEXT J 

1030 FOR J=&HF55C TO &HF5A2 iPOKE J.8.H33 iNEXT J 

1040 I=&HF6C4:F0R J=I TO I+&H46IP0KE J,&H33iNEXT J 

1045 GOSUB 4000 

1050 POKE PA , PL i POKE PA+1 , PR i LOCATE 3,23iPRINT ‘HI-'lHSsiLOCATE 20,23i 
PRINT ' jy)J91' ;BA-1 ; iLOCATE 45,23iPRINT 'SCORE' ;Ss iRETURN 
,1100 IF PA+&H2=&HFD9D THEN RETURN ELSE POKE PA, &H24 iPOKE PA+&H1.&H32! 

POKE PA+&H2,8.H23iPA=PA+l iRETURN 

1200 IF PA-&H1=&HFD51 THEN RETURN ELSE POKE PA+&H1 ,&H24 iPOKE PA-1, &H32i 
POKE PA, 8,H23iPA=PA-l iRETURN 
1300 GOSUB lOlOOiGOTO 100 

1500 IF D=1 THEN 0=4 ELSE IF D=2 THEN D=3 ELSE IFD=3 THEN 0=2 ELSE D=1 

1510 BEEP liBEEPO iPOKE NA.&HOiGOSUB 10100 iSS=SS+10 iGOSUB 10200iGOTO 100 

1600 GOSUB 3100iD=4iPOKE AD , &H0 : AD=AD+D! D ) : POKE AD,&H66iG0T0 100 

1700 GOSUB 3100iD=3iPOKE AD , &H0 i AD=AD+D ! 0 ) i POKE AD,&H66iG0T0 100 

1800 IF D=1 THEN D=4 ELSE IF 0=2 THEN D=3 

1810 IF AD=&HF37A THEN D=4 ELSE IF A0=&HF3C4 THEN D=3 

1820 GOSUB 3100 iPOKE AD, &HOiAD=AD+D!D> iPOKE AD,&H66iG0T0 100 

1900 IF D=1 THEN D=2 ELSE IF D=2 THEN D=1 ELSE IF 0=3 THEN D=4 ELSE D=3 

1910 GOSUB 3100 iPOKE AD , &H0 : AD=AD+D( D > i POKE AD,&H66iG0T0 100 

2000 D=2 

2010 IF NA=&HFD52 THEN D=1 ELSE IF NA=&HFD9C THEN D=2 
2020 GOSUB 3100 iGOSUB lOlOOiGOTO 100 
2050 D=1 

2060 IF NA=&HF052 THEN D=1 ELSE IF NA=&HFD9C THEN D=2 

2070 GOSUB 3100 iGOSUB lOlOOiGOTO 100 

2100 BA=BA-1 i IF BA=0 THEN 2500 

2110 POKE AD, &H0:AD=AD+O!D) iPOKE A0.&H66 

2112 GOSUB 3300 iGOSUB 4000 

2120 LOCATE 20,23iPRINT V3U797’ (BA-li 

2125 IF INKEY$=" THEN 2125 

2130 POKE AD, &H24iD=l iGOSUB 3100 1 GOTO 92 

2210 GOSUB 3100 

2500 'if ss>=2000 then goaub 5000 
2510 POKE AO , &H0 i AD=AD+D! D > I POKE A0.&H66 

2520 GOSUB 3300iGOSUB 3300iL0CATE IO.IOiCOLOR 5iPRINT‘«< GAME C 
iLOCATE 10, 12iPRINT '<« H I T SPACE KEY >>>' iD=l iCOLOR 7 
2530 IF INP! 9 >=191 THEN 2550 
2540 GOTO 2530 

2550 IF HS<SS THEN HS=SSiDEFUSR=&HDOOO 
2560 PRINT CHR$!12-)iG0T0 17 
3000 POKE AD . &H0 i POKE &HD032.&H70 : A=USR! 0 > 
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3010 GOSUB 3200 :D=1 :SS=SS+500 :GOSUB 10200 :TJtT=DD-3: GOTO 80 

3100 BEEP 1 :FOR T=1 TO 30: NEXT: BEEP 0: RETURN 

3200 FOR K=1 TO 3 

3205 FOR P=1 TO 5 

3210 GOSUB 3100 

3220 FOR R=1 TO 6: BEEP 1:BEEP 0:NEXT R 

3225 NEXT P 

3226 IF K=2 THEN GOSUB 810: GOTO 3230 
3228 GOSUB 800 

3230 NEXT K: GOSUB 3500: GOSUB 810: RETURN 
3300 FOR K=1 TO 100 
3310 BEEP 1 

3320 FOR R=1 TO 3: NEXT R 

3330 BEEP 0 

3340 NEXT K: RETURN 

3500 FOR K=1 TO 500: NEXT K: RETURN 

3510 FOR K=1 TO 1500: NEXT K: RETURN 

4000 FOR I=&HF8A6 TO &HFA86 STEP &H78 

4010 RN= I NT ( RND ( 1 ) *&H38 ) : J= I +RN 

4020 FOR K=J TO J+5 

4030 POKE K.&HFF 

4040 NEXT K 

4050 NEXT I 

4060 RETURN 

5000 LPRINT "HIGH-SCORE 

5010 LPRINT : LPRINT TAB( 13) ; "POPCOM" 

5020 DEFUSR=&H6600 : A=USR ( 0 ) 

5030 PRINT CHR$ ( 12 ) : DEFUSR=&HQOOO 

5040 INPUT ‘ *f,H, B" ; YE.MO.DY: INPUT 't 7 l";UU$ 

5050 LPRINT : LPR I NT YE; ;M0; "H" ;DY; "B" :LPRINT UUS;" »7" 
5060 RETURN 

9999 ' -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -a -b -c -d -e -f 

10000 DATA 2a,30,d0,cd,f3,03,eb,2a,32,d0,01,04,00,ed,b0,e5 
10010 DATA d5 , 1 1 , 74 , 00 , el , 19 , eb , el , 01 , 04 , 00 , ed , bO , e5 , d5 , 1 1 
10020 DATA 74,00,el,19,eb,el,01,04,00,ed,b0,c9,00,00,00,00 
10030 DATA 04, 04, 44, dO, 00, 00, 00, 00. 00, 00, 00, 00. 00, 00, 00, 00 
10040 DATA 10, c2,c0, 12, 60, 5f,5f,6f ,33,33,33,33,00,00,00,00 
10050 DATA 40 , c2 , cO , 42 , eO , d7 , d7 , e7 , 33 , 33 , 33 ■ 33 , 00 , 00 , 00 , 00 
10060 DATA 00,00,00,00,00,00,00,00,33,33,33,33,00,00,00,00 
10070 DATA 12, 64, d6,e7, cl, 53, 00, fd, 33, 33, 33, 33. 00, 00, 00. 00 
10100 POKE AD , 8.H0 : AD=AD+D< D ) : POKE AD, &H66: RETURN 

10200 LOCATE 50,23:PRINT SS;:RETURN 

11000 ' Title 

11010 UIDTH 40,25:PRINT CHR*<12) 

11020 Q0=2:U0=2:Q1=7:U1=11 
11030 COLOR 5 

11040 LOCATE Q0,U0:PRINT " ’ . • 

11050 LOCATE QO ,U0+1 :PRINT . M * 

11060 COLOR 6 

11070 LOCATE Q0,U0+2:PRINT ' 

11080 LOCATE Q0,U0+3:PRINT 
11090 COLOR 3 

11100 LOCATE QO ,110+4 :PRINT 
11110 LOCATE QO ,U0+5: PRINT 
11120 COLOR 1 

11130 LOCATE QO ,L)0+6:PRINT 1 
11140 LOCATE Q0,U0+7:PRINT " Jm -4M ■ 

11150 COLOR 2 

11160 LOCATE Q0-2,U0+8: PRINT’ 4 
COLOR 7: PR I NT ‘U<J7 >" 

11170 COLOR 5 

11180 LOCATE Ql.Ul: PRINT " . . ■ • 

11190 LOCATE Q1,W1+1:PRINT " . A 

11200 COLOR 6 

11210 LOCATE Q1 ,U1+2:PRINT I 

11220 LOCATE Q1 ,Ul+3 :PRINT " . ##l 

11230 COLOR 3 

11240 LOCATE Q1 ,Ul+4 : PRINT "* Jmmm*. I 
11250 LOCATE Q1 ,U1+5:PRINT "• '«■ I 

11260 COLOR 1 

11270 LOCATE Q1,U1+6:PRINT ’ „ Jm I 

11280 LOCATE Q1 ,U1+7:PRINT ' JmBmmmmr A 
11290 COLOR 2 

11300 LOCATE Q1-2,U1+8:PRINT ’ 4 
: COLOR 7: PR I NT "7" D'J7" 

11310 LOCATE 3,21 : COLOR 5:PRINT "C40 
11320 GOSUB 3500: GOSUB 3300: GOSUB 3510 
11330 COLOR 7: RETURN 


" Jm m w*n m ■ 


A.’: LOCATE Q0+5.U0+8: 


’: LOCATE Q1+5.U1+8 
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Z£\m£fa£&ytthj 0 r &(Dft-/->(D±:(D&Z) 
ee«M8iz*5«ea®j£f* 
»a<tari^«BMC*»«u\j tivsezfx m 
Betas*)**,, 




Ao©B&#fflBT\3SfirBrandom 
walktiw**, random£T*£5<!£>£tv5Z<!i 
Tv walkB^-c^o aeitaeA©JHkt:tv5* 
ttBasO*!*** ^MSWCDBXBx BASIZ& 
*<b*t*-3ttfc8<a*K £(,\T(,\35B©@otf 
astuatvo-catf* 

s&&£0\ aa«sct\Atf» £©«jrctHi;«i 
*c<fc^rez3«*R»B)ffle<i:r*o B*_t©B 
irawwzs»ai,ra>*i,«ft-3* jeta«x asst 

^xh/AIHKgllr 


*CA£l,V3«frlZ»B CA) 1 ?J> 

&IZI3¥^fflqrigttT\ *©6K#£K / \ StStL, 
^g-o *i/c*£v 3«®i»«c0m;*-3Cx 

cc^ciSBstx -ttDWftoisssttiwer** 
tl/VJC&ffTS**. 

»ac®<AB*ffl® i ©©ntziicsiei^ * 
©Z>i*ffl 1 SKDBIClgCSlqltBeiATtfflLJ-Cg- 
»5»»T^a5iOSft|)fco 
±©fflrct\<tx ®is>#©&iz$i& (A) tfs as 
3«mizaD3^tt«T0©<f-3iz& l o**o 
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CnBSSa/CWiWDEftJBtniLJTx ££n?j> 
gfflAZ5l32"rSJo^®CS:^-Cl\^^o^AAtf 
4 fg^iz*ffl©teBeusgfi^s*=-i-£:t\-3z 





tlZ^g^o 

zn^frcfemsd^iZs zomfc (A) m\ 
3qTf£tt©35£iIi?Tl;i. i sl£[,\\z&t)<Oizfctf?z : 
\,\<<totttm'0&n o 


'omvo 

5CBv 

i\s? 0 

*EUZ&D&58Q7j ISS^Tv Z>&'0 
Tis$ibizmzz(DTm££te'0$-$ o ymx-Diz 
□'j/7iz*£us^r 'yo(oM\twm.\z^-ox, 
t\cictf0s ±&imz&\zis.'o&-$ a 


B9 1 1S/ TV □ VT^S^fiDtejE =fe©T\ PJUzT 
ux/aturiSs r r^s©s: : fe©^iiic/)D^5jt 
IVSCtiZS®**. 2CT?tt10Ba)WS*W3e 
totrz359 3 : 3-0 siifflizi^ izaf^oBHttx Btra 
*ntn&zmz\m& : bzt.tfio-Q^-zi5'Q, * 

£s 3530<Z^©igBfTlZ3fc 

sqiigttisioo^r^sztfcm^r^s^oZ© 
ZtISs <!3u8aKTfcttO tf® 9 ts A3nis, s 

^KH^-h&C^lsniSs ilMWBnSdAV^ZcE 

z©£-5iz. 

35*o s «tt©»£ • sififflMHza^-aWo 

?]2<7)yp^7A(i. g 2: A, raXarcttA if. 



i 

$ 

s” 

3^ 


100 WIDTH 80,25 


0200 22020004 2 I°!? 0 10???1V9!”'‘° 


120 LOCATE 0,12 
130 FOR N=0 TO 6 


^ooOOO^.oooo^^^i^y^ 


140 PRINT " + M ; 

150 NEXT N 

160 FOR N=0 TO 9 

t 

b 805 7505j9 i r=5l? 5 22%9s”979in“ 


170 C$=CHR$ ( ASC ( "0" ) +N> 
180 Y»12 

190 FOR X=0 TO 69 

1 

t “%%v4v 3 


200 IF Y<0 THEN 240 

210 IF Y >=25 THEN 240 

220 LOCATE X,Y 

230 PRINT C* 

240 Y=Y+INT <3*RND ( 1 ) ) -1 

250 NEXT X 
260 NEXT N 
270 HARDC 0 

nil 


02 i«0^5yP^7A 

P^f— Z_* fe** ** 




W&> t®S^r0ffi^iter©35i5o 
S®SfflAEcl3v#St»PoTCrS^fflS;o'Cto 
#§«cia0c^ote i fcfflffl> »un tBizme 
®trg-o ^vvHfsroMisfflPJ^ft-c m^z> 
/3PMS*U£ o r Utf£«lAo £<A'j 
£BU\jtx JE£90;£3:B53\ Sfd&ifflfilZB 
AS&'S'Pv *£3:9;tfm>ft<#£IStf^r©3: 
3\> IS^brAffilS»P(ZSIZ#lt§fb3:o^o 


yna^uz-DiM: 


^■CK/^/alSBASICiisDATA^IZSZmeiS 

WBffbtt-pTtWo 


ijAht*a‘OJisz©i#OKr^o ecu ns 
*57tfiMZB-h»fflSur<e^i^ *^izzi«^ 

z©^n^^ns. ^J)zrt©^Y^-iJ9z 
2»«RJfllUCx AEc£SH®S!l<<7Sa®IZ*^T\ 
*CD2HS«3EEC*!SS1*ri\*^o UtfU it 
Ht-'S'-T'tN 3'«9S5Z)<ffl-C»RHiS/i;-C 
(AStx a*UT 

<£<*IV, Z©S^ISv SJ9Z2>ffl?fiK/$tiiitS£S 
^.rf5^rt\Sffl.‘Cx lt©£©£SI3v POKE& 
HFFD4 , 1 28 AForSiJ 9 C&ElU&Sffx EXEC& 
H7FD0^SfiET<^lNo JRKBfcETGCfcCC, 
m^o 
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«Sffi§SI3s «6s 35c £tf2Mp-/U 

■Cv AftffliaS^ttSffllZ^-CU^o «Sx 

^□C^tfflAPffiilZ, NEW ON 1 5^1030-C 

<££© (40?y-yJl/E-Fri3®S3;m0o 


MV75 


AROSJSttrandom walkr, 1 i&iiasrtiz 
£St55;tt izsss^g-o uetf^TWSfccfcttS 
iziay-p>z^30#3D9^t^o IPF • ite -g 
fluis Vvy7&i±z<iszi\ 0 «s5i3. i &m 



U h X H < fiffl. «£ $ A-** w < -y T / 


ascrtcKwwiji*^ yvyyy^Q^yy 
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Z/u8«feffliK<J; j to 

RS»B£ffl*B«,\ffl-3-aAStfo 
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Wtirr v-riur>* ') =;-)-/\s'r7 h fci'icifcKf iKf, B|«^/3>oy7 H±i*ri «©*«&?>,> Hkth 
v'-myy h60tBfttt#-i;i-5tl±.Soi!) s . V7 

J:5«t«.£B^im>jLTT§v> 0 • i&2X* • 23*) !!«ita-Tti&k'3*g££ByL*'t. 





«!JiTJ4i{lll 


< stU7tib7a77k 

\ 


410 CLS : GQSUB6 1 0 : GOTO 1 30 

420 P0=- CPOl): DG=DG+2 : LOCATE 1 1 , 0 : PR I NTUS I NG " ## " ; DG 

430 SCREEN, 1 :L0CATEX+P0*5, 12 : PRINTF1* ;C1* ;F1*;C1* ; FI* ; Cl* ;F2*CP0) 

440 FORI = 1T06 : EXEC&H7F40 : NEXT : F0RW=1 T0200 : NEXT 

450 G=0: IF DG>=3 THEN RETURN 

460 LOCATED, 24:F0RI=1T06:PRINT:F0RW=1TG20:NEXTW, I 
470 IF INKEY* <>"" THEN470 ELSE 130 
BOO ’ Draw Drunkard Sub. 


f 707 k 


130- >-fv; 

30- 

a 

i~ -f:v-v7-fX, 

mw.m<nvk»-z*. 

Jj-f 

mt t 

r > 7 “ r >{r<n&TF. 


610 IF INKEY* <> " " THEN610 
620 LOCATE 0,3 
630 PRINTTABCT) ; " m, " 

640 PRINTTABCT) ; " " 

650 PRINTTABCT) ; " 'w- " 

660 PRINTTABCT) ; " J^ 1 

670 PRINTTABCT) ; " Jm m — ' 1 
680 PRINTTABCT);” ■ — ' 

690 PRINTTABCT);" O mj—m 
700 PRINTTABCT) ; 

710 PRINTTABCX) ;M1*CP) ;C1*;C4*;M2*CP) ;C1*;C4*;M3*(P) ;C2*;C4*;M4*;C3*;C4*; 

M5* CP) ;C3*;C4*;M6*CP) ; 

720 RETURN 

1000 ’ Initialize Routine 

1010 CLEAR300, &H7EFF-.DEFIIMTA-Z 

1 020 KEY 1 , " j " : SCREENO, , 1 ; W IDTH40 ; CONSOLE 1 , 24, 0 : P0KE&HFFD4, 1 28 
1030 DIMCC1),M1*C1), M2* Cl), M3*C 1 ) , M5* Cl), M6* C 1 ) , D*C 1 ) , F2* C 1 ) , G*C5) 

1 040 ' X =0 : E=0 : G=0 : P=0 : J=0 : D=0 : D 1 = &H A82 : P 1 =&: P2=0 : S=0 : B=0 : F=0 : T=0 : DG=0 : P0=0 
1050 1=0: 11=0 :W=0:C=0:DA=0:CCO)=5:CC1)=2:R!=0 

1060 K*=" " :C1*=CHR*C31 )+STRING* C4, CHR*C29) ) :C2*=CHR* C31 )+STRING*C3, CHR*C29) ) 
1070 C3*=CHR*C31 )+STRING*C2, CHR*C29) ) :C4*=STRING* C5, CHR* C29) ) :D*=" " 

1080 mi*co)=" m -m. ":Mi*cn=" ^ wm ":M2*co)=" m m - 
1090 M2* C 1 ) = " m m " :M3*C0) = ” m JT " :M3* C 1 ) = " m " :M4*=" ■* ■■ " 

1100 M5*C0)=" m m* ":M5*C1)=" m m ":M6*C0)=” jM " : M6*C 1 )=" ^ " 

1110 Fl*=" m " :F2*C0) = " M. ":F 2*C1)=" ^ " : D* C0) = " i8iW : D*C 1 ) = " Xfc." 

1120 G*C0) = "-i — k. J — k. U ":G*C3)="^ W ■ ■ ■ ■ k. " 

1130 G* C 1 ) = “■ ■ ■ ■ — ":G*C4) = "B ■ XX ■ — ■ — r " 

1140 G*C2) = "'* r m ■ ■ ■ ■ ":G*C5) = "^ — T r ■ ■ X " 

1150 C=0:F0RI=&H7F00 T0&H7F58 : READD* : DA=VAL C " &H " +D* ) :C=C+DA : POKEI, DA: NEXT 
1160 IF CO 8561 THEN BEEP: PRINT”Data Error 1 I": END 

1 1 70 C=0 : FOR I =&H7FA0 T0&H7FD8 : READD* : DA=VAL C " &H " +D* ) : C=C+DA : POKE I , DA : NEXT 
1180 IF CO 6251 THEN BEEP: PRINT”Data Error 2 !":END ELSE EXEC&H7FA0 

1200 ’ Opening Title & Initialize 

1210 P0KE&HFFD4, &H80 : SCREEN, 2 : C0L0R4 : CLS : LOCATEO, 5 
1220 IF INKEY* O'"' THEN 1220 
1230 PRINTTABC5) ; " 

1240 PRINTTABC5) ; ”■■■ I 
1250 PRINTTABC5) ; " ■ ■ 

1260 PRINTTABC5) ; "■MMtaHl ” 

1270 PRINTTABC5) ; "■ ■ ■ ■ 

1280 PRINTTABC5) ; "■ r mm ■ 

1290 PRINTTABC5) ;"fc — m ■ ■" " 

1300 PRINTTABC5) ■ ^mmr" 

1310 L0CATE4, 17 : PRINT"Operat i on : PF1 key Jump" 

1320 L0CATE8, 20: PR I NT" Wi I I you hit any key ?" 

1330 IF INKEY*=" " THEN I=RND:GOT01330 ELSE CLS 
1340 X=15:T=14:G=0:P=0: J=0:DG=0:S=0: R ! =. 7 

1350 L0CATE5, 0: PRINTUSING "Damage##" ;DG :L0CATE30, 0 : PRINTUSING "Score#####" ;S 

1360 LOCATEO, 16: PRINT" " ;STRING*C27, CHR*C2B) ) ;" "; 

1370 F0RI = 1T07 : PRINTTABC5) ; " I" ;STRING*C27, CHR*C28) ) ; "I " :NEXT 

1380 IF INKEY* <> " " THEN1380 ELSE P0KE&HFFD4, 0: SCREEN, 1 : CLS: G0SUB6 10 

1390 G0SUB130 ’ To Main 

1400 ’ Ending Title 

1410 SCREEN, 2 :C0L0R2 

1420 F0RI = 1T020STEP5:F0RI1=0T02:L0CATE6+I, 10+1 1 : PRINTMID* CG* C 1 1 ) , 1,5) :NEXTI1, I 
1430 F0RI = 1T020STEP5 : FORI 1=3T05: LOCATE 1 1 + 1 , 12+1 1 : PRINTMID* CG* C 1 1 ) , 1,5) :NEXTI1, I 
1440 F0RW=1T02000:NEXT:G0T01210 

1450 DATA 8E, 04, 01, 10, 8E, 04, 00, C6, 27, A6, 80, A7, AO, 5A, 26, F9, 8C, 07, EB, 27, 07, 4F, 30 
1460 DATA 01, A7, AO, 20, EB, 39, 12, 12, 12, 8E, 07, EB, 10, 8E, 07, E7, C6, 27, A6, A2, A7, 82, 5A 
1470 DATA 26, F9, 8C, 04, 01,27, 07, 4F, A7, 82, 31,3F,20*, EB, 39, 12, 12, 12, BE, 07, CO, 10, 8E 
1480 DATA 07, E8, A6, 82, A7, A2, 8C, 04, 00, 22, F7, 4F, A7, 80, 8C, 04, 27, 23, F9, 39 
1490 DATA 1A, FF, 30, 8C, 04, BF, 01,10, 39, 34, 02, 86, OC, B7, FF, C6, B6, 00, DO, 27, OD, 86, 04 
1500 DATA B7, FF, C7, 7F, 00, DO, 35, 02, 7E, El, 31, 86, 08, B7, FF, C7, 7C, 00, DO, 35, 02, 7E, El 
1510 DATA 31, 12, 1A,FF,CC, E1,31,FD, 01, 10,39 


fmwm 


7F00- 

7F20- 

7F40- iS»;*^p-A 

7fao- BiffiiHi mmm 
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^MBSKl^S«bSBv lilffi: 
UTZjo>hsn^^o 

OiSTO 
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— 7 ) ©MiizAAbru 

£x -^ffl^lSx PC- 

8ooi©»-v;iy«i» 
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®mA 

7^7<LWJ(D, 
-11*Wfflx-'9(0x 
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5£U3£l,\-3A0:x ftS§ffl690#5720£^1±tf 
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^ POPCOfll 


m-<7 • V U TTcnyuy^Jx I) X f> (PC -8001 ffl) 



10 REM , 

20 REM 1 GAt 

30 REM | Game Name 


GAME PROGRAM 


50 REM | Machine 
60 REM | Start 
70 REM | I 


40 REM 


File Name 


• V7*-W7 
■V997 
•PC-8001 
•RUN RETURN 


1982/11 


* 80 REM l 1 i 

} 90 WIDTH 40 , 25 : CONSOLE 0 ,25,0 , 1 :PRINTCHR*< 12) { 

J 100 DIM A< 10, 10) sDEFINT A-Z { 

’ 110 DEF FNO(X)=X+2:DEFFNP(X)=X-2 ? 

* 120 DEF FNQ(X)=X+1:DEFFNR<X)=X-1 

J 130 DEF FNG<Y)=YX2- 1 iDEF FNH<X)=XX2 ' MH 9 CRT *t'ta9l \jT>j \ 

* 140 FOR A=0 TO liFOR 8=0 TO 10 :A(A,B) =-l :NEXT :NEXT * 

‘ 150 FOR A=9 TO 10SFOR B=0 TO 10 sA(A,B)=-l :NEXT :NEXT * 

♦ 148 P1*="*":P0*=" ■ 

♦ 170 COLOR 1NT<RND<1)X7> + 1 \ 

j 180 FOR 1=1 TO 25 + 

’ 190 READ X,Y:FOR T-1TO10 :NEXT rLOCATE X,Y:PR1NT PI* J 

» 200 NEXT I 

+ 210 COLOR INT(RND< 1)X7) + 1 ♦ 

! 220 FOR 1=1 TO 43 ♦ 

i 230 READ X.YsFOR T=1TO20: NEXT: LOCATE X,Y:PRINT PI* J 

* 240 NEXT I 

if 250 FOR T=1 TO 800:NEXT T:G0SUB 1730:COLOR7 ♦ 

J 260 GOSUB 1350: GOSUB 1380 :G0SUB 1550 * 

’ 270 K*=INKEY*: IF K*<>" " THEN 270 5 

J 280 GOSUB 1730 :L0CATE7,5:PRINT‘LV *»' 1 719 4 79*7977 !!“ 

♦ 290 LOCATE7,9: INPUT" 1-4 / ►*U)9 75-9 79*9/" ;L ♦ 

} 300 IF L>4 OR L<1 THEN BEEP: GOTO 290 + 

’ 310 DIM B*( 100) :F=1 } 

} 320 IF L=1 THEN RESTORE 2250 

i 330 IF L=2 THEN RESTORE 2330 ♦ 

1 340 IF L=3 THEN RESTORE 2410 ♦ 

* 350 IF L=4 THEN RESTORE 2490 ! 

♦ 340 AS=0:CN=0:DN=0:N=0:NX=100 

♦ 370 GOSUB 1730: GOSUB 1090:GOSUB 1280 ♦ 

1 380 LOCATES, 18:PRINT"979=* t 

’ 390 GOSUB 1780 l 

* 400 LOCATE 23,5:PRINT"h'37)9?":GOSUB1350 

♦ 410 LOCATE 27,7:PRINT"33=" ; :A*=INPUT*< 1) :A=VAL(A*> :PRINTA J 

; 420 LOCATE 27,8:PRINT’99=" ; :B*=INPUT*( 1) :B=VAL(B*) :PRINTB; ♦ 

430 IF A<1 OR A>7 OR B<1 OR B>7 THEN 390 j 

! 440 A=A+ 1 :B=B+ 1 

< 450 IF A(A,B) O 1 THEN BEEP: GOTO 390 ♦ 

460 B*<F)=A*+B* ♦ 

470 GOSUB 2000 } 

1 480 IF M3=0 THEN L0CATE23,5:PRINTCHR*(7)+ STRING*(10,* ");:GOTO 390 

490 IF AOCN OR BOON THEN N=N+1 ♦ 

500 C1=0:D1=0 :F=F+ 1 ♦ 

510 LOCATE 23, ll:PRINT“t‘*e9?" { 

1 520 GOSUB 2100 

530 LOCATE 27,14 :PRINTUSIN6"t< t<";MOU*; J 

540 CN=C:DN=D: GOSUB 1000 i 

550 AS=AS- 1 : 1 F ASOl THEN 410 } 

540 LOCATE 9,18:PRINT N 

570 FOR J= 1TO50 : BEEP1:FORI=1TO10:NEXT:BEEP0:FOR I=1TO20:NEXT:NEXTJ ♦ 

580 C0L0R2 : LOCATE 8,20 :PRINT"t 9 f t* !!! SUCCESS !!*:COLOR 7 * 

590 F0RT=1T03:0UT8 1,33: FORT 1=1TO50:NEXTT1:OUT81, 32 :FORT2=1TO50:NEXTT2:NEXTT J 

1 600 FOR T=1 TO 1000:LINE 20, 1 :NEXTT :LINE20 ,0:GOTO 690 

610 FOR Af=2 TO 8 ♦ 

620 FOR &=2 TO 8 ♦ 

630 IF A(A,B)<>1 THEN 650 ! 

440 GOSUB 2000 :IF M3=l THEN F=F+1:GOTO 390 

650 NEXT B ’ 

660 NEXT A * 

670 BEEP :F0RT=1T058:NEXTT: BEEP I 

675 COLOR3:LOCATE8,20:PRINT'9'/ 7 'J !! FAILURE" :C0L0R7:PRINT:PRINT:G0T0 730 
480 FORT= 1 TO 500:NEXT T ♦ 

; 690 LOCATE0 ,20 :PRINT"9!>'l^ — > "; ♦ 

700 FOR F=1 TO 100:PRINTB*(F) j"-";:IF B*<F)=" THEN 720 'J X F < * 
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710 NEXT F 

728 PR I NT ‘SUCCESS ! ! ■ 

730 PRINTTAB( 17) ; ‘Return key to retry !!*; 

740 IF INKEY*OCHR*( 13) THEN 740 
730 ERASE B*:G0T0 280 
1000 REM t It' fj/ Df SI 

1010 D1=D+ 1 :D0=D-1 :C1=C+ 1 :C0=C-1 

1020 IF MOU*= ‘ UP ‘ AND A(C,D1)=1 THEN A(C,D1)=0:LOCATE FNH<C) ,FNG(D1) sPRINTPB* 
1030 IF MOV*=*DOWN- AND A(C,D0> = 1 THEN A(C,D0)=0:LOCATE FNH(C) ,FNG(D0) :PRINTP0* 
1040 IF MOU$=*LEFT- AND A(C1,D> = 1 THEN A(C1 ,D) =0 :L0CATE FNH(Cl) ,FNG(D) :PRINTP0* 
1030 IF M0V*=*RIGHT* AND A(C0,D> = 1 THEN A(C0,D>=0: LOCATE FNH(C0) ,FNG<D) :PRINTP0* 
1040 A(A ,B)=0 :A(C,D)=1 :LOCATE FNH(A> ,FNG(B> :PRINTP0* 

1045 LOCATE FNH(C) ,FNG(D> iPRINTPl* 

1044 B*(F)=RIGHT*(STR*(C-l),l)+RIGHT*(STR*(D-l),l):GOSUB 1350 
1070 L0CATE9, 18:PRINT N 
1080 RETURN 

1090 L0CATE23, 0: COLORS :PRINT* XX V9*-Wf7 XX‘ 

1100 LOCATE0 , 1 i COLOR? 

1110 PRINT* NA 1 2 3 4 5 4 7‘ 

1120 PRINT - B\ 

1130 PRINT’ 1 
1140 PRINT* 

1130 PRINT* 2 
1140 PRiyT - r- 
1170 PRINT" 3| 

1180 PRINT* |- 
1190 PRINT* 41 
1200 PRINT* (- 
1210 PRINT" 3| 

1220 PRINT* i- 
1230 PRINT* 4 
1240 PRINT* | — | — | — | 

1250 PRINT- 7 I I I I 

1240 PRINT- iiii 

1270 RETURN 
1280 ' 

1290 FOR A=2 TO 8 
1300 FOR B=0 TO 10 
1310 READ AX:A(A,8)=AX:IF 
1320 NEXT B 
1330 NEXT A 
1340 RETURN 
1350 ' BEEP 

1340 8EEP 1 i FOR 0=1 TO 30:NEXT:BEEP 8 
1370 RETURN 

1388 C0L0R4: LOCATE 18 , 1 : PRINT "XXX r-4 
1390 LINE( 18,4) -( 18,24) ,*0* 

1480 LOCATES, 3:PRINTSTRING*(39,*=- 
1410 C0L0R7 ! LOCATE 8 ,5:PRINT* ( 1) : 

1428 LOCATE S^iPRINT 1 
1438 LOCATE 4,8:PRINT*, , , ,* 

1440 LOCATE 4,9:PRINT -|e|el |* 

1430 LOCATE 4, 10 :PRINT* 1 — 1 — 1 — 1 " :P0KE&HF83i 
1448 LOCATE 4,12:PRINT *,,,,- 
1478 LOCATE 4,13:PRINT *| I |0|* 

1488 LOCATE 4,14:PRINT *i— i— i— i- 
1490 LOCATE 8,14:PRINT *91739; 379 93'»3'* 

1580 LOCATE 8,17:PRINT-37 »*73e9 
1510 LOCATE 0 , 19:PRINT *1*7 ...M39* 

1520 LOCATE 0 ,28 :PRINT*2*7 75-' 39 •.•S»ftM* 

1530 LOCATE 10, 24: PR I NT "Hit space Key !!* 

1540 RETURN 

1548 COLOR? : L0CATE2 1 , 5 : PR I NT * ( 2) t>*3»7?* 

1570 L0CATE23, 7: PRINT* 33(A) (1-7)* 

1580 L0CATE23, 8: PRINT* 99(B) ( 1-7) * 

1590 LOCATE25,10:PRINT-93*S7 *939* 

1400 L0CATE38 , 1 1 :PRINT* ,— ,* 

1410 LOCATE20 , 12:PRINT*9I 
1428 LOCATE30,13:PRINT- 
1430 L0CATE24, 14:PRINT* , — 


THEN AS=AS+ 1 : LOCATE FNH(A) ,FNG(B) :PRINTP1* 



| * :POKE &HF8E0 ,t<HlE 



r-A'/vh, ''-KBJtStlJ, KO-C.' 
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* 1640 LOCATE20,15:PRINT"5/9 ■•ISHIFTI+I r :POKE &HFA50 ,t<HlF 

\ 1650 L0CATE26, 16sPRINT" ' > 

* 1660 L0CATE26, 17:PRINT" , , r-." 

J 1670 LOCATE20,18:PRINT"br 9 ISHIFTI+I I": POKE &HFBB8,t£HlD 

* 1680 L0CATE26, 19: PRINT* ' > 

I 1690 LOCATE30, 20 SPRINT" n" 

1700 LOCATE20,21sPRINT"ir I I* sPOKE &HFD18,ttHlC 

{ 1710 LOCATE30, 22 SPRINT" 

* 1720 RETURN 

i 1730 - VMt 17 

1 1760 FOR 1=0 TO 39 

* 1750 LINE( 1 ,0)-( 1 ,25) , " " 

t 1760 NEXT I 
} 1770 RETURN 

' 1780 FOR 1=18 TO 39 

* 1798 LINE(I,2)-<I,25> ," " 

* 1800 NEXT I 

2 1810 RETURN 

* 1820 REM 

: 1830 IF A(A,FNO(B>)=0 THEN Ml=l ELSE M1=0 

i 1840 RETURN 

1 1850 IF A(FNO(A) ,B)=0 THEN Ml=ls ELSE M1=0 

* 1860 RETURN 

; 1870 IF A(A,FNP(B>)=0 THEN M 1= 1 ELSE M1=0 

* 1880 RETURN 

2 1890 IF A<FNP(A) ,B)=8 THEN M 1= 1 ELSE M1=0 

* 1900 RETURN 

* 1910 REM 

* 1920 IF A(A,FNQ(B>> = 1 THEN M2=l ELSE M2=0 

! 1930 RETURN 

t 1940 IF A(FNQ(A) ,B)=1 THEN M2=l ELSE M2=0 

| 1950 RETURN 

* I960 IF A<A,FNR(B))=1 THEN M2=l ELSE M2=0 

2 1970 RETURN 

’ 1980 IF A(FNR(A> ,B)=1 THEN M2=l ELSE M2=0 

} 1990 RETURN 

S 2000 GOSUB 1830 sGOSUB 1920 

2 2010 IF M 1= 1 AND M2=l THEN 2090 

, 2020 GOSUB 1850 sGOSUB 1940 

J 2030 IF M 1= 1 AND M2=l THEN 2090 

* 2040 GOSUB 1870 sGOSUB 1960 

2 2050 IF Ml=l AND M2=l THEN 2090 

* 2060 G0SU8 1890 sGOSUB 1980 

* 2070 IF M 1= 1 AND M2=l THEN 2090 

* 2080 M3=0: RETURN 

2 2090 M3= Is RETURN 

* 2100 ' 

} 2110 W=INP(8> 

* 2120 IF W=«<HFF THEN 2110 

2 2130 IF W=tiHFO THEN 2135 ELSE 2140 

’ 2135 C=AsD=FNP(B) s IF A(C,D)=0 AND A(C,D+1> = 1 THEN MOV*="UP” sRETURN ELSE 2110 

♦ 2140 IF W=t<HBD THEN 2145 ELSE 2150 

♦ 2145 C=A:D=FNO(B) s IF A(C,D>=8 AND A(C,D-1> = 1 THEN MO l 7$= " DOWN " s RETURN ELSE 2110 

2 2158 IF W=&HBB THEN 2155 ELSE 2160 

’ 2155 C=FNP<A) sD=BsIF A(C,D>=0 M A(C+1,D> = 1 THEN MOV*= " LEFT ": RETURN ELSE 2110 

} 2160 IF W=tiHFB THEN 2165 ELSE 2170 

1 2165 C=FNO(A) :D=B: IF A<C,D)=0 AND A(C-1,D>=1 THEN MOV*=" RIGHT" sRETURN 

2 2170 GOTO 2110 

* 2180 ' 

♦ 2190 DATA 10,4,11,3,12,2,13,2,14,3,15,4,16,5,17,6,18,7,19,8,16,2s 'V 

♦ 2208 DATA 24,2,24,3,23,4,25,2,26,2,27,2,27,3,27,4,26,5,25,6,24,7,23,8 

! 2205 DATA 29,2,38,1: 

’ 2210 DATA 2,12,2,13,2,14,3,15,4,16,8,12,8,13,8,14,8,15,7,16,6,17,5,18 

♦ 2215 DATA 4,19,3,19s 'V 

\ 2228 DATA 12 , 12, 12, 13, 12 , 14 , 12, 15, 16, 12, 16, 13, 16, 14, 16, 15, 16, 16, 16 , 17 

! 2225 DATA 16,18,15,19,14,20 s 'V 

’ 2238 DATA 20,12,21,12,22,12,23,12,24,12,19,14,28,14,21,14,22,14,23,14 

♦ 2235 DATA 24,14,25,14,22,15,22,16,22,17,22,18,21,19,20,20: 'f 

♦ 2240 DATA 29,12,30,12,31,12,32,12,33,12,34,12,35,12,35,13,35,14,34,15 

1 2245 DATA 33,15,32,14,32,15,32,16,32,17,31,18,30,19,29,20: '7 

♦ 2250 ' iW7 f'-9 (No. 1) 
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j •■; * h i Linff>yn^7A j 

I 20 REM * TILE GAME WRITTEN BY MRS. AKITA * J 

J 30 REM a********************************************************************** 

4 40 CLS-. COLOR 7,1: WIDTH 80 ♦ 

i 50 LINE (56, 7) - <631 , 199) , PSET, 6, B j 

{ 60 X 1=56: X2-631: FOR Yl=23 TO 183 STEP 16:LINE ( X 1 , Yl ) - ( X2, Y1 ) , PSET, 6: NEXT Y1 

j 70 Y 1 =7 : Y2= 1 99 : FOR Xl=56 TO 608 STEP 32:LINE < XI , Yl ) - ( XI , Y2) , PSET. 6: NEXT XI J 

J 80 READ XI, Yl: IF Xl=-1 THEN GOTO 90 ELSE X 1=X 1 *32+32: Y1=Y 1 * 16: PAINT <X1,Y1>,2,6: ! 

I GOTO 80 % 

♦ 90 FOR 1=1 TO 1000: NEXT I : CLS ♦ 

1 100 LOCATE 0,1: PRINT "30117 1001 tflf* 3T+ JJX' ?“ } 

* 110 LOCATE 0,2: INPUT " TL f 77* *tT — " , A*: A=VAL (A*) 

I 120 IF A<30 OR A >100 THEN A*=SPACE* <LEN(A*> >: LOCATE 24,2:PRINT A*:GOTO 110 
t 130 X=39: Y=3: XI =303: Yl=20: J=10 4 
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popcorn 


16) ,PSET,6,B 
+3 ELSE X=X+4 

+32 ELSE X=38sY=Y+2:Xl=303sYl=Yl+: 


140 FOR 1=1 TO A 
150 LOCATE X , Y : PR I NT I 
160 LINE (XI, Yl>-(Xl+32,' 

170 IF 1=9 OR 1=99 THEN : 

180 J=J-1:IF J>0 THEN XI' 

190 NEXT I 

200 LOCATE 0,4: PRINT "* * * # 

210 LOCATE 0, 6: PRINT “ =9" > 9<TU9 7991 990 : 

220 PRINT i/37in 99* zj It) 4- 1 t)z> 537T* 1 

230 PRINT "T'*. WT *)•<□' > 9TiU 9 jWW' i)9" 

240 PRINT "til)' Mf'7." 

250 LOCATE 0,11:PRINT "» » * * 

260 LOCATE 0,13: PRINT "tTLaOO 9*1- T* t!t)7 — 1 
270 PRINT " 7+9 = O Zll/t” *-9- = 1" 

280 LOCATE 0,16: PRINT "T+^-i +1-3 W!>7* I-7*JT 
290 LOCATE 18, 13: INPUT " ", B*: B=VAL <B*> 

300 IF B<0 OR B>1 THEN B*=SPACE* (LEN <B*> ) 

310 X 1=304 : Y 1=21 : J=10: K=1 

320 IF B=1 THEN B=0: D=2: C=A/6: C=A-FIX (C> *< 

: GOTO 350 ELSE GOTO 350 ELSE GOTO 350 
330 C*=SPACE* (LEN (C*> ): LOCATE 23, 16: PRINT 
340 IF C<1 OR 05 THEN GOTO 330 ELSE B=1:D=0 
350 FOR 1=1 TO C: PAINT (X 1 , Y1 ) , D, 6: A=A-1 : IF A=0 THEN GO' 
360 J=J-1:IF J>0 THEN Xl=Xl+32 ELSE Xl=304: Y1=Y1 + 16: J = 1 i 
370 NEXT I: GOTO 320 

380 LOCATE 0,18:PRINT "***************»**»************" 
390 PRINT "* *" 

400 IF B=0 THEN PRINT "* »* iVnY»V> 99H.J JJ+9* * !! *" 

9 .) D+9* Ol'K-f ! ! » " 

410 PRINT "* *" 

420 PRINT "**»**»******»**»**»************" 

430 LOCATE 0,23: INPUT "•!)•!>* 99-T tli'i ’ N’ 9 TI-t 99* 9Y — " , E* 
440 IF E*="N" THEN GOTO 40 
450 CLS: COLOR 7,0: END 

460 DATA 2, 2,3, 2, 4, 2, 3, 3, 3, 4, 3, 5, 3, 6, 7, 2, 7, 3, 7, 4, 7, 5, 7, 6, 
6, 11,6, 12,6, 14,2, 15,2, 16,2, 14,3, 14,4, 14,5, 14,6, 15,4, 16,4. 
470 DATA 5.8,5.9,5,10,6,9,7,9,8,9.7,10,7,11,10,8,11,8, 
11,17,11,17,10,-1,-1 


LOCATE 19, 13: PR I NT B*:GOTO 290 

,:IF C=0 THEN C=K:K=K+1:IF K>5 THEN K=1 

C*: LOCATE 22, 16: INPUT " “ , C*: C=VAL (C*> 


ELSE PRINT " 


| 9 ,14, 10, 14, 11, 15, 11, 16, 11, 17, 11, 17, 10, -1,-1 


10,2,10,3,10,4,10,5,10, 
15,6, 16,6 

10,11,10,12,10,16,8,15, 




| • ') * h 2 




| 80 READ X! 

J GOTO 80 

L , Y1 : IF Xl=-1 THEN GOTO 90 ELSE X1=X1 *32+32: Y1=Y1* 16: PAINT O 

(1, Yl> ,7,6: 


| 320 IF B=1 

THEN B=0:D=7:C=A/6:C=A-FIX<C) *6: IF C=0 THEN OK1K-K+I1IF K! 

>5 THEN K-l. 


J : GOTO 350 

ELSE GOTO 350 ELSE GOTO 350 
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■ 'JXhl MONACO GP^'f>/Q^7A 


2 1 0 P0KE45 , 1 1 7 ■ POKE46 , 2 1 ■ POKES 1 , 255 : P0KE52 , 24 : P0KE55 , 255 : P0KE56 , 24 : CLR 2 

’ 20 P0KE36869 .. 255 : P0KE36379 , 93 : P0KE36878, 15 

♦ 30 PRINT"3MW)®!«M!la## MONACO OP **" ♦ 

2 40 pr i nt " wnnKBS* mKrsMam v car" 2 

j 50 PRINT" mMMftM" CHR$ < 34 > : PR I NTSPC 1 6 > " #!1ISflCOM CAR” 

{ 60 PRINT" HM" SPC ( 5 ) " ■ SKEV FUNCTION" : PR I NTSPC < 6 > " SLEFT L” : F'RINTSPCCS) " 3RIGHT. . . ♦ 

♦ 70 PRINT " MS3BONUS CAR FOR 10000PTS" : PR I NT " .S3W&PUSH 'FI ' TO START" 

! 80 GETA*: I FRTO " ■" THEN80 \ 

4 90 PRINT ’T3" 4 

2 100 1=0 : SC=0 : P=10 : 0=0 : DIMR<7) , L<22> .■ P<3> 2 

♦ 110 FORI=0TO7:READR<I> : NEXT : BRT880.. 70,50,80, 30, 80, 10,80 

♦ 120 FORI=0TO22 : REABL<I>:NEXT:IIATA0,5,2,3,4,7..4, 1 4, 3.. 4, 5, 4.. 7, 4, 1 .6, 1,6.. 1,4, 7, 4 * 

2 130 P(0>=3 : P< 1 )=8 '■ P<2>=13 : N=36877 ■ C=3 2 

♦ 140 V*= " 

♦ 150 P0KE673 > 0 : POKES .• 0 : P0KE254 .. 2 : P0KE4 , 1 '■ P0KE252 .• 1 1 ! 

♦ 160 PRINT" TMISGSCORE " SC " 3" SPC <! 1 5 V CAR " C 4 

2 170 F0RI=2T022 : PRINTLEFT$<V$. I V'ffl! !"SPC<18>"! !"; : NEXT 1 PRINT "S" 2 

’ 180 FRINTLEFT$<V$, 19>SPC<PEEK<252> > "SMHX" 

♦ 180 FORI»1TO1500 : NEXT: POKEN-1 .• 128 : POKEN-3.. 128 : POKEN-2 > 128 : 1=0 ♦ 

4 200 SV36400 : I FPEEK < 4 > =0THEN290 2 

J 210 1 = 1 + 1 : IFKRCL(O^THEN260 

J 220 1=0 : 0=0+1 :POKE0>L<O> : IFO=22THENO=0:POKE254,PEEK<254>+1 :P=P+10 ♦ 

♦ 230 POKE 1 .• RND < 1 > #8+3 : 1 FPEEK ( 0 ? = 1 THENPOKE 1 ^ P < RND < 1 > #3 > 4 

2 240 I FPEEK < 0 > =5THENP0KEN , 250 : OOTO260 

’ 250 POKEN .. 0 : I F0= 1 1 THENP0KE254 .. PEEK C 254 ) + 1 I 

♦ 260 P0KE2; RND< 1 >#23 : SVS6830 ♦ 

2 270 SC=SC+P : PRINT" SB3" SPC < 7 > SC : I FSC= 1 8000THENC=C+ 1 : PR I NT " SS" SPC < 1 8 > C 2 

♦ 280 OOTO200 

J 290 FORI=-3TO0 : POKEN+I .. 0 : NEXT : SVS6599 J 

4 300 PRINTLEFT*<V$, 18>SPC<PEEKC252>-1> "SS&' <SiM»>#+)!lSil,-.a" 5 

{ 310 POKEN.. 220 :FORI = 15 T C0STEP-1 :PCKEN+1.. I : FOR J= 1 TO 1 20 : NEXT : NEXT : POKEN , 0 : POKEN+ 1 , 1 2 

) 320 C=C-1 : IFC=0THEN350 I 

j 330 IFLC0)/2OINT<i_<0)/2)THEN0=0-l : POKES , L < 0 > 2 

} 340 1=0 : PQKE4, 1 : P0KE252 ,11: POKEN+2 .• 93 : GOTO i 60 

♦ 350 8VS7308 = PRINTLEFT*< V*, 10>SPC<6> " 3BOAMEH3VER" * 

4 360 PRINTSPC<6)"arrRV»IA9AIN?"LEFT*<Vt.. 15>'PCa0>"<V/N>SS"SPC<lS>C i 

♦ 370 OETfl$ • IFA$O"N"ANDA$O"V"TNEN370 

J 380 I F A* = " V " THENRUN { 

♦ 390 POKEN-8, 240: POKEN+2.- 27 :PRINT"7I" : END 4 



M'JXt- 2 MONACO GP-7'>>mV-7 r JL'-T> 
— — — 

| 1900 20 A9 19 R6 FC A9 20 9B : EA 

1908 8C IF 9D A2 IF 8A 18 65 : 10 
2 1910 FB 85 FC R2 30 BB 00 IF :2A 

4 1918 09 R0 90 05 R9 20 9B 00 :S4 

t 1920 IF E8 D0 FI 20 03 1R 28 :22 

J 1928 93 19 20 67 19 A5 00 C9 : BR 

4 1930 07 F0 06 R9 07 85 FB D0 FF 

2 1938 07 20 CB IB A9 00 85 FB : 38 

! 1940 20 51 1R R5 00 C9 07 F0 -FO 

4 1948 04 99 04 85 FB 20 07 IB :75 

2 1950 20 80 19 85 00 C9 07 F0 : IE 

1 1958 23 C9 05 B0 07 R9 19 8B :J7 

♦ 1.960 0F 90 B0 03 20 8C 1C 86 :F0 

4 1968 FC 89 06 9B 8C 97 9B R2 :°A 

♦ 1970 97 89 24 9B 8C IF R9 25 :7A 

♦ 1978 9B R2 IF 60 20 CB IB 60 :24 

4 1980 R6 FC BB 8C IF C9 24 B0 :C7 

1938 08 BB R2 IF C9 25 D0 01 :45 

2 1990 60 Efl EP R6 FC BB 8C IF :3E 

4 1993 C9 20 B0 03 BB R2 IF C9 :08 

19R0 20 B0 01 60 R9 00 35 04 33 

J 19R3 60 R5 00 C9 05 F0 84 89 :70 

4 19B8 08 35 FB R5 C5 C9 15 B0 : 93 

2 19B8 05 R9 FF 85 FB 60 C9 16 6C 

’ 19C0 B0 04 P9 01 85 FB 60 R2 :00 

♦ 19C8 30 BB 00 IF C9 80 90 05 :0R 


^7A 


19B0 R9 20 9D 00 IF E3 B8 FI : 2E 
19D3 60 00 00 00 00 00 80 08 : 60 
19E0 00 00 00 80 00 00 00 00 : 00 
19E8 00 00 00 30 90 00 00 08 : 00 
19F0 00 00 00 00 00 00 00 00 : 00 
19F8 00 00 00 00 00 00 00 00 : 00 
1P00 89 IF 85 F3 85 FR 89 E3 :50 
1R08 85 F7 P9 F9 85 F9 82 00 :3E 
1810 81 F7 31 F9 85 F8 13 69 :30 
IRIS 78 85 F3 85 FB 18 69 73 :SB 
1820 35 FR 81 F7 31 F9 85 F8 :2E 
1828 38 E9 78 85 ^8 85 FR 38 : EB 
1830 E9 78 35 FR 85 F7 B0 02 :4E 
1838 C6 F8 C6 F7 85 Fg B0 02 : EB 
1840 C6 FR C6 F9 85 F7 C9 15 :F9 
1848 B0 C4 85 F8 C9 IE B8 BE :86 
1850 60 82 16 89 21 9B 15 IE :B2 
1858 85 FB 9B 15 96 CA B0 F3 : 77 
I860 85 00 P0 03 C9 01 F0 0F : 66 
1868 C9 03 F0 14 32 12 89 20 : 4B 
1870 9B 17 1.E CR B0 F8 60 85 :69 
1878 01 13 69 08 35 02 B0 21 :02 
1880 8B 14 91 29 01 B0 04 89 :F9 
1888 FF B0 02 89 01 18 65 01 :F9 
1890 C9 03 90 06 C9 0C B0 02 :E9 
1898 85 01 85 01 18 69 08 35 : 3C 
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J 1BFI0 02 R6 01 R9 

♦ 1PR3 E3 E4 02 B0 
■' J ’ ' ■ 1AB0 02 F0 .05 CE 

♦ 1RB8 RB 14 91 29 
1RC0 01 60 R9 IE 

\ 1RC8 18 65 02 85 

» 1RD0 F7 C9 20 B0 

♦ 1RB8 69 16 85 F7 

t 1RE0 B0 BF R9 23 

♦ 1RE8 85 F3 R5 FB 

I 1RF0 38 E9 16 85 

t 1RF8 F7 R9 IE 85 

1B00 F7 R9 82 8B 

J 1B08 IE 85 FP R9 

s 1B10 00 Rl F9 C9 

IBIS F9 B0 02 E6 

J 1B20-20 B0 EE 60 

i 1B28 F9 48 RB 14 

J 1B30 05 68 68 4C 

’ 1B38 91 29 03 C9 

♦ 1B40 02 F0 08 E6 

1 1B48 FR B0 08 R5 

’ 1B50 FR CS F9 Rl 

♦ 1B5S 13 R5 F9 13 

! 1B60 R5 FR 69 00 

i 1B68 09 21 B0 09 

♦ 1B70 35 FR 40 17 

{ 1B73 F9 R5 FR 18 

1B80 R5 FB 81 F9 

♦ 1B88 16 85 F9 A5 

4 1B90 FR R5 FB 81 

1B98 E9 73 35 FR 

J 1BA0 68 35 F9 68 

4 1BRS 81 F9 R5 F9 

1BB0 F9 R5 FR 69 

J 1BB3 20 31 F9 33 

♦ 1BC0 35 F9 P5 FR 

} 1BC8 40 17 IB R9 

{ 1BB0 R2 00 R9 00 

♦ 1BB8 00 97 E8 D0 

5 1BE0 06 9B 30 97 

♦ 1BE3 24 9B 80 IF 

♦ 1BF0 IF R2 05 8fl 

4 1BF8 R9 02 99 31 

) 1000 99 5B 97 99 

J 1008 Efl R4 FC P9 

4 1010 99 78' 97 R2 

1018 FO A8 B9 32 

♦ 1020 05 R9 E3 99 

1028 EC R4 FC B9 

1030 B0 05 A9 CE 

1038 36 IF 09 20 

1040 99 36 IF B9 

1048 B0 05 A9 E5 

1050 40 IF 09 20 

1058 99 40 IF B9 

1060 B0 05 R9 OB 

1068 62 IF 09 20 

1070 99 62 IF B9 

1078 B0 05 R9 OB 

1080 77 IF 09 28 

1088 99 77 IF 60 

1090- 90 A9 IE 85 

1098 F9 A2 00 Rl 

1OR0 14 R5 FR 13 

1CA8 R9 07 81 F9 

1CB0 78 85 FR B0 

1CB8 14 R5 FR 18 

1000 A9 04 81 F9 

1008 78 85 FR B0 

1CB0 04 R9 20 81 

1CB8 02 E6 FR R5 

1CE0 BR 60 00 00 

1CE8 00 00 00 00 

1CF0 00 00 00 00 

1CF8 00 00 00 00 

1E00 00 00 00 00 


20 9B 15 IE 
F6 60 RB Rl 
Rl 02 B0 09 

07 05 FE 90 
35 F8 A9 16 
F7 P2 00 Rl 
EC R5 F7 18 
Rl F7 09 20 
81 ^ A9 96 
81 F7 A5 F7 
F7 R5 FB 81 
F8 P9 22 31 
Rl 02 60 A9 

16 85 F9 R2 
22 F3 0B E6 
FA A5 FR 09 
A5 c fl 48 35 
91 29 03 B0 

17 IB RB 15 

02 90 F2 09 
F9 B0 02 E6 
F9 B0 02 06 
F9 09 21 c 0 
69 16' 35 F9 
35 FR PI F9 
63 85 F9 68 
IB R9 23 31 
69 78 35 FR 
R5 F9 33 E9 
FR E9 00 35 
F9 R5 FR 33 
R9 22 81 F9 
35 FR R9 20 
IS 69 16 35 
00 35 FR R9 
A5 F9 E9 15 
E9 00 85 FR 

08 8B 0F 90 
9B 16 96 9B 
F5 A6 FO R9 
9B R2 97 R9 
R9 25 9B R2 

18 65 FC P8 
97 99 47 97 
73 97 OR B0 
00 99 74 97 

03 8fl 18 65 
IF 09 20 B0 
32 IF CP B0 
32 IF 09 20 
99 32 IF B9 
B0 05 P9 OB 
48 IF 09 20 
99 48 IF B9 
30 05 R9 E7 
5E IF 09 20 
99 5E IF B9 
B0 05 R9 CE 
75 IF 09 20 
99 75 IF B9 
B0 05 R9 CE 
R9 5B 8B 0F 
FR P9 16 35 
F9 09 21 B0 
69 78 85 FR 
38 R5 FR E9 
20 09 24 B0 
69 78 35 FP 
38 R5 FR E9 
08 09 R0 90 
F9 E6 F9 B0 
FR 09 20 B0 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 


42 

41 

B5 

64 


33 

B6 

87 

DB 

70 

63 

OR 

8F 

15 

B3 

91 

08 

2B 

06 

21 


4R 


BB 

Rl 


96 

29 

6E 

85 


79 

71 

33 

OR 

B7 

54 

67 


EF 

89 

F7 

10 

B9 

23 

1R 

B6 

50 

31 

OB 

31 

1R 

EF 

2B 

Efi 

84 

2B 

E7 

08 

F6 

3R 

1R 

00 

00 

00 

00 


♦ 

; 

t 

\ 

s 


I 

I 


1B08 00 EE EE 
1B10 00 18 18 
1B18 30 24 30 
1B20 30 7E 13 
1B28 7E 66 30 
1.B30 00 00 04 
1B38 00 00 10 
1B40 00 00 04 
1B48 00 00 10 
1B50 00 00 64 
1B58 00 00 BO 
1B60 30 20 3B 
1B68 00 38 00 
1B70 04 46 60 
1B78 00 00 00 
1B80 00 00 00 


EE 00 EE EE EE 
BB FF BB 18 30 
BB FF FF BB 00 
BB FF BB 30 7E 
BB FF FF BB 00 
04 06 25 30 10 
30 75 BB 96 00 
00 14 R3 EE 24 
12 10 12 10 00 
96 E5 94 94 00 
R0 RC R4 BO 00 
67 02 00 00 00 
5P 73 22 00 00 
58 38 00 00 00 
00 00 00 00 00 
00 00 00 00 00 


39 

50 

B4 

7F 

28 

BE 

73 

17 

63 

E6 

43 

96 

00 

00 


1B38 

1B90 

1B98 

1BR0 

1BRS 

1BB0 

1BB8 



00 00 00 00 • 00 

00 00 00 00 : 00 


1BC0 

1BC8 


00 

00 


1BB8 

1BE0 

1BE3 

1BF0 

1BF8 


00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 


; 00 
: 00 
■■00 
:00 
■00 


1 

{ 

1 

l 

\ 

; 

♦ 

I 




1 0 P0KE55 • 255 ■ P0KE56 , 24 : CLP 
20 I NPUT " I > NPUT , D > UMP , 3 > TOP " J C* 

30 IFC#-" I "THEN 100 
40 IFC$-"D"THEN300 
50 I FC$= " 3 " THENEND 
60 GOTO20 
100 GOSUB700 
110 B=RD/256 : OQSUB500 

120 B= I NT < < RD/256- 1 NT < RD/256 > > *256 > : OO3UB500 
130 PR I NT " " : D=PEEK < RD > : GDSUB500 
140 D$="" : INPUT" -”;B$ 

150 IFD*«""THEN200 

160 I FD$* " S " THEN20 

1 70 I FD*= " / " THENRB=RB- 1 '• GOTO 1 1 0 

1 80 I FLEN < D* > <2THENB$®R J. GH T $ < " 0 " +D* .• 2> 

1 90 D**LEFT* < Dt , 2 > : GOSUB600 • POKERD , D 
200 RD*RD+1 : OOTQl 10 
300 GOSUB700 

310 D= I NT (. RD/256 > : GOSUB500 

320 D» I NT < < RD/256- 1 NT < RD/256 > > *256 > : GOSUB500 
330 PRINT" 


4 380 R 

♦ 390 GETRt- IFfl$s"S"THEN20 

♦ 400 I Ffi#= " " THEN390 
l 410 GOTO310 

! 500 D* I NT < CD/256- I NT < D/256 >> *256 > 

4 510 DH*INT <D/16> : DL*=INT < <B/16-DH>*16) 

% 520 DH=DH+48 : DL as DL+43 

♦ 530 I FDH>57THENBH»BH+7 
J 540 IFDL>57THENDL=DL+7 

J 550 PR I NTCHR* < DH > ; CHR$ < DL > ; = RETURN 
4 600 DH*RSC<DS> DL*RSC<MID»T.DC,2, 1>> 

% 610 I FDH>57THENDH=DH-7 

♦ 620 I FBL>57THENBL«BL-7 

J 630 DH=DH-48 : DL*DL-48 : D=16*DH+DL : RETURN 
! 700 RD*="" : INPUT "STRRT RDBRESS";RB$ 

4 710 IFRDt- ,, "THENRDt="1900" 

% 720 I FLEN < RD$ > <I4THENRD*=R I GHT* f " 000 " +RB* , 4 
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OCommodore VIC-1001 

VIC©BASIC£ 

IV-?V 

TINY EXPANDER 

0 J2MS3A 



V I C-1001IZIS, V I C-1211Mtl/>-5X— /T- 
D59BASIC£aifcg-SJ6jt)©R- 
OMSRAM/ ZZVZHS 

fttt'VNY EXPANDER'Bu*riffi5ZlKT\ VI 
c C44 x 66^h(Dmm^yY'^mm^y^y 
te© 

1) SETC 2) PLOT 
3) RPLOT 4) LOCATE 
5) SOUND 


OKE 81 92,0 : POKE 648,30:P 
OKE 36866, 1 50:P0KE 3686 

v 9, 2 4 o : c l r : ? "ffl" : n e W j zmiju 
3<T (3flSISHiFTl+rogA®D n 
ZniZ^'O BAS I .C5^XhIU>»*$ 2 0 0 0 
#£>, V-RAM©IU?^$ I E00#5IZffl‘9 

xtz&xrcv. iuzuzh i <n =?sy±yjv- 

1 O L 0 A D, R U N 

L-S^o m 1 IS, TINY EXPANDER ®SBS©At 

o 


10-1 TINY EXPANDERtffl^OX^U-V'yy 




< I > V I C ttzltV I C3»s#+ 3 

K R A M->XtA(?)^ 

UAh 1 ®7n'7^i->&A7)U RUN n&z 
tiZcSor, v i c®Atu-iuP$i boo- 

$1 D E F©0IZ*TINY EXPANDER'tfSSZ^fl, 

su0gizsiSL.^g-o 

< II > V I C^+8, l6KRAM'>X-rAOT*§-£- 

y-TL^ht-KT?, 

r P O K E 4 3, 1 :P0KE4 4, 32:P 


®VIC^or^ + 3KRAMv7fA 


BASIC 

x+a|-i'J7 

TINY 

EXPANDER 

V-RAM 


$ 0 40 0 SIB 00 SIEOO 
or $1000 

(DVIC*{* + 8,16KRAM: 

>7jA 


7'J- 

-xiJ7 

TINY 

EXPANDER 

V-RAM 

BASIC 

r+X|-xi;7 

$1000 

7 

t 

$ 1 BOO $ IE00 $2000 
'■>>ISetci:{£ffl,BASIC0)T+7 H'J7 
LTOffflliTMtA. 


TxX f-/i 

m<n-?4a>mmrii. im^tum^-tzx^x^x. ^Mx^m^-ox^i toiciio* a,&v>. 
3>izMlxm<Z»l>X££ Lfc. 

?? r POPCOMj *#!+«!:£ H o T T'i Li 7 „ tfSv\, 


rt'JiWI/7CK7^i 




<I> 

CDsetc 

§09 : y?'j-yjjy-<Lrt-9-t>^-ttv 
hi>^<r ®2) 0 

i3:SETC X, Y 

x : xou-y^- co^x^i5) 
y : ft-y-t)?- (0^y^7) 
^-□-kissi c^u^g-o 

um- 2 (SETC) 

(WSETC 5, I 

1 

*-r-*>7- 

i 

*rM v 


mm i x?'j->.#-r-fi7-=i-Fm 

0z?i ;->-*7-3-k •*-*•- 

* 7 - □ - K 


0 


8 

xyyy 

0 

yyvo 

1 

Ttx^-rs 

g 

y-fh-xyyy 

1 

Ttx'Xh 

2 

Lx 'V S 

10 

ey? 

2 

Lx *y K 

3 

2/ P > 

11 

^yyyy 

3 

yyy 

4 

?t?>9 

12 

5-rh?t?>9 

4 

y\ ±y? 

5 

<7U-> 

13 

y^yyv-y 

5 

yy-y 

6 

7 Ji ~ 

14 

^-tyyiis- 

6 

y n, - 

7 

■YXO- 

15 

7-Th-TID- 

7 

-rin- 


[2]PL0T 


g& 9 :*?U->ffl»(x. Y)IZZj^-CC)rK 
(03). 

as; : plot x, y, c 
x : x®n (0^xs43)- 

Y : YJ$H (OSY =245) 


■ 0-3 (PLOT) 



><75/l#(^77T -y*) 

(0,0) 


(43,0) 


X 



Y 


(0,45) 


(43, 45) 


[3]RPL0T 

sfflr^u -ymm (x, y) izassK'vh^ 

as: RPLOT X, Y 

X, YISPLOTtra^o 

Blocate 

§09 : m 

4X 

*S: LOCATE X. Y 

x :x«SIifflxli (0^X^21) 
Y : x^HIiSCDYffiSI (OSYS22) 
■0-4 (LOCATE) 


07 -** L-H ®C7)M#(*-V^u) 


(0,0) - 


(21,0) 


X 



Y 


(0,22) 


(21,22) 


[5]S0UND 

§09 : v-oy^^y^o A, Bs CCD<B£ 
PSGffijtl v 2, 3IZ, NfZMi^y-YX 

'Ofetbmv o cnscDiBCD^sisv i c 
d r mgo : -y-o>Kj^#p^c 


»S : SOUND A, B, C, N, V 
■0-5 (SOUND) 


A.B.C.N. V 

• V 1 C (6560) ^-y TV 


L 





PKL-7 

n § 

fi 



70>F 

yx^L/--9-# 1 

128~255or0 







$900 B 

tK»K 

5x^U-5!-#2 

128~255or0 







$900 C 

XO>K 

yx^Lz-s'-sa 

128 — 255oro 


$900 D 

X-OC 

128~255oro 


$900 E 

7KUx-6> 

6 — 15 





<II>77X^'^3 >+- 
7?>92/3>^-CTE® 4 


I F 1 y F 2 | : LIST 
I F 3s F 4 | : RUN+ lRETURN] 

|F 5v F 6 | : CONT+ fRETURN| 
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□C75^t*ofc<n U<f-5C SAVE/LOAD 

t*su 

K®S©7D7^®L0ADg-Si:SCIJ, ‘TINY 
EXPANDER'jtfettLTl VSKrttaO ^1*/Uo 

■TINY EXPANDERS 


&35, |RESTOREl + | 1 t u op I *—-£W$t.07> , 
r SYS 6 9 1 2j SUftUTCigSlAo ZH 

tfo 

"TINY EXPANDER' I F~T 

HEN^fflTH E N©^<?StCIS»^^-e/Uo & 
3S=)y>K ; £*<t£0U r T HEN :S5 SZI^>Kj 

ctAiis 

I F X = 2 O O THEN : SOUND (X, 

X, O, 0, 1 5) 

£Uo>*3olZA:£l L/S9o 
aaD^Kt^utOTcr^^Bx a«©7 
■ ij * h I tiny EXPANDER 


j> k y a 

f*3 § 

$ 1 B 0 0~$ 1 B45 


$ 1 B 4 6 — $ 1 B71 

P^LsZ-t-7)Is 

$ 1 B 7 2 — $ 1 C76 

&£D?y^ 

tmoi—^y 

$ 1 C 7 A — $ 1CA7 

sounds — ?y 

$ 1 C A 8 — $ 1 C C 2 

LOCATED — J-y 

$ 1 C C 3 — $ 1 D 8 B 

PLOT Ib-^y 

$1 C E E — $ 1 D 8 B 

RPLOT1L/ — 7y 

$ 1 D 8 C — $ 1 D A F 

SETClU-g 1 ^ 

$ 1 D B 0 — $ 1 D F F 

7*>yoi /3y%— 
mmib-^y 


100 POKE 55,0: POKE ge,27:CLR 

110 FOR 0=6912 T07679 : GOSUB130 : POKE 

120 SVS 6912: NEW 

130 RERD Dfl»:D«flSC<DF»>:0O8UB140:DH« 
TURN 

140 IF D<58 THEN D=D-48 
150 IF D>57 THEN D-D-55 
160 RETURN 

1 70 DRTfl R2 , 00 , BD , 25 , 1 B , 09 , 00 , F0 , 06 , 
180 BflTR 07,BB,3E, 1B,9B,04,03,CR, 10, 
190 DRTR ID, 8D, 90, 02, 60, 0D, 20, 2D, 2D, 
200 DRTR 58, 50, 4 1,4E, 44, 45, 52, 20, 2D, 
210 DRTR D9, IB, 28, 1C,4E, 1C, 79, 1C,R7, 
220 DRTR 53 , 4F , 55 , 4E , 44 , R8 , 0D , 40 , 4F , 
230 DRTR 4F,D4,0D,52,50,4C,4F,D4,0D, 
240 DRTR 00 , 00 , 20 , 70 , C5 , R0 , 05 , B9 , FB , 
250 DRTR C9,41,90,45,C9,5B,B0,41,84, 
260 DRTR 50 , 1 B, F0, 15 , C9 , 80 , F0 ,18, BD , 
270 DRTR 03,E8,D0,F4,E6,0B,P4,B1,R9, 
280 DRTR R6, B1,R5,0B, 18,69, CC,9D,FB, 
290 DRTR FB , 0 1 , D0 , F6 , 9D , FD , 01 , R4 , B1 , 
300 DRTR F0,06,C9,22,D0,F6,F0,F1,60, 
310 DRTR 30,42, 09, CC, 90, 3E, 28, 38, E9, 
320 DRTR F0,0R,C8,B9,50, 1B,C9,0D,D0, 
330 DRTR 09, 0D,F0, 17,09,35, D0,0C,R9, 
340 DRTR D2 , FF , R9 , 54 , 29 , 7F , 20 , D2 , FF , 
350 DRTR 49, 40, F6, 06, 28, 40, 1R, 07, 20, 
360 DRTR DB,B0, 15,20,39, 10, 40, RE, 07, 
370 DRTR 48 , B9 , 46 , 1 B , 48 , 40 , 73 , 00 , 20 , 
380 DRTR 85, 0D, 20, 73, 00, 09, DB, 90, 13, 
390 DRTR R8,B9,47,1B,48,B9,46, 1B,48, 
400 DRTR 06 , 7B , 06 , 7R , *0 , 86 , OE , 80 , 00 , 
410 DRTR 9E,D7,R8,8R, RE, 00,01,90,01, 


R, D : NEXT 

’D:D=RSC( RIGHT* <DR$, 1>>: 


54,49 
0D , 00 
02, 10 
41,54 
45,54, 
F0, 50, 
R2 , 00 
IB, F0 
B9 , FB . 

08, E8. 
D0,RB. 

09, FF, 
i , Rfl , 84 
:,F0,F3. 
', 20,02. 
i, El, 88, 

1.00. 09. 
1 , OB , 0R . 

1.00. 4C. 
, E3,B0. 

73, 80. 
, R2 , 80 . 
,E8,E0. 


E8,D0,F3,R2 
8D , 8F , 02 , R9 
4E, 59, 20, 45 

00. 00.72. 1B 
ED, 10, SB, ID 
05, 0D, 50, 40 

03.00. 00.00 
09, 22, F0, 40 
86, 0B, 38, FD 

20. 09. 00, F0 

01 , E8, 00, DE 
B9, FB, 01 , 9D 

, 08, B9, FB, 01 
F0 , 46 , 24 , 0F 
, 49 , R8 , FF , OR 
08, B9, 50, IB 
FF , R9 , 4E , 20 
B9, 58, 1 B , R4 
00,98, 19,09 
R8, B9, 47, IB 
E7 , 07, R9, 08 
0F,E9,CB,0R 
R5, 7R, 00, 02 
8E, 00, 01, 20 
06 , B0 , 8B , 20 


'Ht. • ?y7i g&zmnnim -imzirze 

^ m&x < r-i ^ a iiiv tz ') lt„ 


420 DATA 73 , 00 , C0 , 29 , F0 , 07 , C0 , 2C , F0 , E2 , 40 , 08 , OF , 08 , ED ,81 4 

430 DATA 0 1,9D, 08, 90, OR, 10, F7, 60,20, 9E,D7,E0, 16,90,03,40 j 

440 D0TR 48,D2,36,D3,20,FB,CE,20,9E,D7,E0, 17, B0, FI , 86, D6 j 

430 IiRTR 40 , 87 , E5 , 20 , 9E , D7 , E0 , 20 , 90 , 03,40 , 48 , D2 . 86 . FP . 20 
460 DATA FD , CE , 20 , 9E , D7 , E0 , 2E , B0 , F 1 , 86 , FC , 20 , FD , CE , 28 , 9F 
470 DRTR D7 , E0 , 08 , B0 , E5 , 86 , FB , R9 ,01, 85 , FE , 40 , 08 , 1 1' , 20 , 9E 
430 DRTR D7,E0,2C,90,03,4C,48,D2,36,FB,20,FD,CE,20,9E,D7 * 

490 DRTR E0, 2E, B0, FI , 86 , FC , 09 , 00 , 85 , FE , R5 , FE , 4R , 85 , 84 P5 J 

380 DRTR FC, 4A, 85, 85, 85, FB, 29, 01, 85, 06, R5,FC, 08,29,02,03 ♦ 

510 DRTR 06, 88, BD, 78, ID, 85, 06, 18, R5, 04, R6, 05, F0, 10,80,00 4 

520 DRTR 84,05,69,16 , 90 , 05 , R0 , 0 1 , 84 , 95 , 1 8 , OR , D0 , F4 , 85 ,04 4 

330 DRTR R5 , 05 , 69 , 1 E , 85 , 05 , 80 , 00 , B 1 , 04 , R2 , 0F , DD , 70 , 1 D , F0 4 

540 DRTR 03 , OR , D0 , F3 , 8R , R6 , FE , F0 , 05 , 05 , 06 , 40 , 66 , 1 D , 83 , 07 { 

530 DRTR 05, 06, 49, FF, 25, 07, R0,BD, 70, ID, 9 1,04, 18,03,05,69 j 

560 DRTR 78 , 85 , 05 , R5 , FD , 9 1 , 04 , 60 , 0 1 , 02 , 04 , 08 , 20 . 7F . 70 , F2 
570 DRTR 7B , 6 1 , FF , EO , 60 , 7F , E 1 , FB , 62 , FC , FE , P0 , 20 , 9E , D7 , E0 
380 DRTR 10, 90, 03, 40, 48, D2, 88, 00, 0fl, 00, 00, 85, 04, 20, FD, CE t 

590 DRTR 20,9E,D7,E0,03,B0,EC,8R,05,04,09,08.8D.0F.90.60 \ 

600 DRTR R2 , 03 , R3 , OB , DD , DE , 1 D , F0 , 06 , OR , 1 0 , F8 , 40 , DC , EB , 05 ♦ 

610 DRTR 05, F0, 18, 85, 05, BO, E2, ID, 02,05, 86, 06, OR, B9, E6, ID } 

620 DRTR D0 , 02 , 06 , 06 , 9D , 77 , 02 , 88 , OR , 1 0 , F2 , 40 , D6 , EB , 27 , 2F 4 

630 DRTR 37 , 3F , 04 , 09 , 0E ,13, 40 , 49 , 33 , 54 , 00 , 52,55 , 4E , 0D ,00 4 

640 DRTR 47 , 4F , 54 , 4F , 00 , 43 , 4F , 4E , 54 , 0B , 42 , 59 , 20 , 59 , 2E , 59 4 




10 REM TINV EXPANDER DEMO 
20 SETC 5,5 

30 PRINT "IT : LOCATE 0, 4 = PR I NT" -SI* VIC TTNV EXPANBFR *" 

40 PR I NT "M NEW COMMAND" 

30 PR I NT "Jfl 15 SETC" : PR I NT" W 2> PLOT" 

60 PR I NT" W 35 RPLOT" : PRINT "M .45 LOCATE PR I NT " V 55 ROUND" 
70 FOR 1=0 TO 2508 : NEXT 
80 PR I NT "n": FOR 1=1 TO 200 
90 LOCATE 5, 11 : PRINT "TINV EXPANDER" 

1 00 PLOT RND < 1 5 *44 , RND < 1 5 *46 , RND < 1 5 *3 
1 1 0 S-RNB <15* 1 28+ 1 28 = SOUND <8,0 , 3 , 8,155 
120 NEXT : SOUND <0,8,0,0,05 
130 FOR 1=0 TO 1000: NEXT 

140 FOR X=8 TO 43: FOR V=0 TO 45 : PLOT X,V,4=NEXT V,X 
150 FOR X=0 TO 43 STEP 2:P0R v=0 TO 45 STEP 2 
160 RPLOT X , V : NEXT V,X 

1 78 SETC 6,6: LOCATE 5,10: pp 1 NT " FT I NV EXPANDER ” 

180 LOCATE 3, 13 : PRINT"* BV V. VRMRMOTO *" 

190 FOR 1=0 TO 2580: NEXT 
200 GOTO 28 
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10 REM jK********************)**** 

20 REM * BASEBALL DATA SHEET * 

25 REM * BY HIROAKI TAKADA * 

35 DEFINT A-Z 

40 WIDTH 80:CREU 0:CLS 4:C0NS0LE 0, 20, 0, 15 : CREU l:COLOR 6 :CLS:CRT 2 
50 K = 0 : J = 0 : I =0 : D IM T* <51 , P* < 1 > , IT* < 14) , T C 14) , N2 < 14 > , S <2> , S* C2) 

60 FOR 1-0 TO 5: READ T* C 1 ): NEXT: FOR 1-0 TO 1 ! READ P*CI):NEXT 
65 FOR 1-0 TO 16 : READ IT* C I ): NEXT: FOR 1=0 TO 2 : READ SCI):NEXT 
I 70 FOR 1=0 TO 2 : READ S*CI):NEXT 
J 75 READ N«N=N-1 

J 80 DIM Ml* <N) , M2 <N> i M3 CN) , M4* <N, 49 > , D CN, 49 , 16> 

♦ 90 FOR 1 = 1 TO 5 : LOCATE 3, I +7 s PRINT I ; T* < I > : NEXT 

1 100 LOCATE 1,5: PRINT ” "iT*C0>!" / lAZy 749 A * 5 8 INPUT TM 

♦ 105 IF TM<1 OR TM>5 THEN 100 

♦ 110 PAUSE 5 

♦ 115 CLS : LOCATE 2, l:PRINT "f*~9 9 s.94 h T Ax"! 

! 117 COLOR 5 : PRINT "Fl"s:COLOR 6 :PRINT " 9 tl/9 99*V4.‘ 

♦ 120 LOCATE 2, 5: PRINT "77 K t Ax"! 

’ 122 COLOR 5 : PR I NT "F2"i:C0L0R 6 :PRINT" 9 Z'j9 79"V4.’ 

♦ 125 LOCATE 2,8:PRINT “7Yt 9-6 9 »IJl h* Ax"! 

4 127 COLOR 5 : PR I NT "F3"s:C0L0R 6 :PRINT" 9 Zy9 ?9"V4." 

♦ 130 LOCATE 2, 12: PRINT "77* Ax " ! 

J 132 COLOR 5 : PRINT *F4"i:C0L0R 6 :PRINT" 9 Xz>9 79"94." 

♦ 135 LOCATE 2, 17:PRINT "j>A"99 *79 79"94. " 

4 140 FOR 1 = 0 TO N: READ Ml* C I > , M2 < I ) , M3 < I > : NEXT 

♦ 150 FOR 1-0 TO N: FOR J=0 TO M3<I)-1:READ M4*CI,J):F0R K-0 TO 16 
J 155 READ D < I , J, K> : NEXT: NEXT: NEXT 

♦ 160 ON KEY GOSUB 200,800,850,900 

{ 165 CLS : LOCATE 3,9: PR I NT "READY M":FOR 1=0 TO 4:PAUSE 5:NEXT:CRT 0 

♦ 170 GOTO 170 

J 200 KEY STOP: IF INKEY*<>"* THEN 200 

♦ 205 CLS: CRT 2:F0R 1=0 TO N : LOCATE 2, I+ 8 :PRINT I + 1 S Ml* C I ) : NEXT 

4 210 LOCATE 2 , 5 : PR I NT " 9" t, / 9* -7 9 577JJ" i : INPUT M:M=M-1 

♦ 215 IF M< 0 OR M>N THEN 210 

} 220 PAUSE 5 

{ 230 CLS : J-0 : FOR 1-0 TO M3<M>-1:IF D CM, 1 , 0> < >TM THEN 240 

4 235 LOCATE 2,J+5:PRINT J+ 1 !M4* CM, I >.: T CJ> =1 : J-J+ 1 

♦ 240 NEXT 

J 245 LOCATE 2,J+7:PRINT J+li 

♦ 250 LOCATE 2, 2: PRINT "7*9 ' 

4 260 LOCATE 1,3:PRINT "9"U 9*7) 

l 263 IF L< 1 OR L >J + 1 THEN 260 
J 270 IF L-J+l THEN 370 

♦ 275 L»T<L-1> s PAUSE 5 

4 280 CLS : LOCATE 1,0:PRINT M1*<M> 

J 290 LOCATE 6 , 1:PRINT "VS" 

J 300 LOCATE 14-LEN <M4* <M, L> > , 2 : PR INT M4*<M,L> 

♦ 310 FOR 1-1 TO 15 : LOCATE 1 , I +3 : PRINT IT*CI> 

4 320 LOCATE 1 1 , I +3 : PR INT US ING "### " i D <M, L, I : 

♦ 330 LOCATE 1,19:PRINT IT*<16>! 

! 340 IF D <M, L, 161*1000 THEN LOCATE 9, 19: PR INT * 

♦ 350 LOCATE 1 0, 19 : PR INT US ING " . " i D CM, L, 16) /1 000 i 

4 360 KEY ON: RETURN 

j 370 CLS : FOR 1-0 TO 2:LOCATE 2, I+5:PRINT 1 + 1! 

♦ 375 IF M2 CM) = 1 THEN PRINT S*CI) ELSE PRINT IT*CSCI>> 

} 380 NEXT 

4 385 LOCATE 2,2:PRINT " h* 7 37*9 * 7-9 5'77)J “ i : INPUT SI 


: NEXT 


. 000" : GOTO 360 
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TINY UTILITY =T7> K* 


vv vlg(7)-tr-7' [S] 

fig SXXXX^YYYY^JJJJ_77-fA« 
HU XXXX-YY Y YSitefc-fe — T’tSo JJJJ 
tt.XBCP- KLfcfttOJRtfifeWttJftttSo 


BS DXXXX 

BS xxxxstftA'bw^^y-rt^SriBaiasi^f 
SiHl-SjF-f B'<4 h 

h C'fcCfl-tx y?-*A (Xt'J-rtgWWOTa 
**) ^SiLito • SMBs 

l space + wfo;x+-«:jf Lito aa 
t'A* L fc v-> >■«<£ L t'*' t -5 A'^riS^S to 


"7'>>i=a* M 

gg] M X X X X 

BS1 XXXX#»A'b7->y^l'W hfoAAt 
m» A^j^^afrtst: garcRit-^ff Li 

to 


HD 

fig JXXXX 

[HI XXXX#«^>tvyuto A**''»»7Lv 
^-^-ufeirsciijoooo^t Lite 


ocax/-Zi«A»^s6«)iz 

r ttfigiBmii«mj oyyuyyL (uaf 2, 
UT.h-3) ityr-Ji/^57>sr^e>nr^ | 0v 
LtfSs *Y>?tK75ZiCU*h 3>BxB 
ASICY>9-7'>9-ZfA* / ^eBa«d5 
SLIl^?o ££s MZ-80CD2/U-XCK 
/C, K2/K2E, 1200££) Cits ^?5/ 
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JE*IA o 



OTINY UTILITYGDA£)<i:<£l\75 


uaf i cdbas i coyyoyyL&fi 5^ 
RUNS-eas-^oCOjW^^ttDATAX 
©teSCKmCTINY UTILITY© 7 ?^ 
ymyayy^ $5000~S514FS«ca 
nzmg&y&iTo j&euucxr-httr* 
stt/u. 

">^Cs BYEWddBCa* t-^-C 
CCTs 

GOTO$5000^ 
tfJSZCts TINY UTILITYtfSS&U 3tl> 
yh- CAtisfiJv'— <7) “] m^sn^ Ac*t sc 
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LxtTfflTs BASICIST^Tg-o 

O^S/^WDA^J^a 

(alTINY UTIUTYfflN/D^>PT\ M 5 B 0 0 J 
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h 2 1 1 p c g cyoyyyyi i> *vyyy- ~;x 
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(a) MS^KT® ACfr rgRlg-frff lTc£Bftra>n 

(b) S 2 COOu48AAwOOOOlJ J^K3 F tfJSZTK 
t-yyz o 
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3#ISil¥< frlit. dtift- 

#ll|«s • 15*) 



%'jy*)v7a'j s 5L 




(cmmiZs «B0N»5PPWSEB% 
?>KrLOAD"U;(h3"£»7U WATx 
LOAD'TINY UTILITY"^^fjL/TX^c5l/V 
TINY UTIUTYtfeiSb£5AT)£^(TT<e 

O^-^0iz-7 

(a)ij^h 3 fflAT)tf#§7U£S 
S 2 C 0 0 l_ j 48AA^0000^UAS3 J 

Sfbl^-tE'VhClz-yu^^o 
(b«SO N# JOOOOrtZS'-Cfeif'O s 
(C)LOAD "PCG" TUAh 2 (U7U'7^>L&n- 
F UPC Gtf&l MBSiaLOADfflSgH;® 9 a= 
Wv\ MVZs 

(d)LOAD "UAh 3 * rU^h 3 O&OTJL&n 

^b\"Cv 


(e) LOAD "TINY UTILITY" Tv TINY 
UTILITY£D-FL^o^?Cn-K&nTU 
3S£l3v 
GOT 0$5000^ 

TT I NY UTILITYP=fc£&o 
(fWWY2rtZ'yh«B*U L(T®#HiTx— T“IZ 
iZ-7LT<^l,\o 

S 5 B00i-j5 FFF^S BOOljPCG^ (PCG 

tfaiuifttt*® 

S2C00^48AAu J 2C00^xYh^'v5/3.'VO 
l«LhTv y-tsr-7 r ^xYK5/ 5 Av2/zl'Yj 
tfSSj&L^o 

; ET-9-=lT>K®LOADTT , -^ZJ-t2'Vh : £D 

-K^ateiwc'TW^s&asn^o 
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REM TINY UTILITY Za7Va7 
M=5* 1 6* 1 6* 1 6 : N=335 

FOR I=M TO M+N-l : READ A*: GOSUB 200: POKE I, D: NEXT I 
END 

D=ASC ( A* ) : GOSUB 250 : DH=D 
D=ASC<RIGHT*<A*, 1) ): GOSUB 250: D=DH* 16+D 
RETURN 

IF D< 58 THEN D=D-4B 
IF D >57 THEN D=D-55 
RETURN 

DATA CD, 06, 00, 11,2E,50,CD, 15, 00, CD, 06, 00, 3E, 5D, CD, 12 
DATA 00, 11, A3, 11, CD, 03, 00, 13, 1 A, FE, 53, 28, 38, FE, 44, CA 
DATA AF, 50, FE, 4D, CA, 20, 51 , FE, 4A, CA, 47,51, 18, D2, 54, 49 
DATA 4E , 59 , 20 , 55 , 54 , 49 , 4C , 49 , 54 , 59 , 20, 2A , 20 , 43 , 4F , 50 
DATA 59, 52, 49, 47, 48, 54,20, 4B, 2E, 4F, 54, 4F, OD, 53, 41 , 56 
DATA 45, 20, 4F, 4B, OD, 13, CD, A1 , 50, 22, 04, 1 1 , 22, AD, 50, CD 
DATA A1 , 50, ED, 4B, 04, 1 1 , B7, ED, 42, 23, 22, 02, 11,CD,A1,50 
DATA 22,06, 11,01, 10, 00, 21 , FI , 10, EB, ED, BO, E5, 21 , 01 , 11 
DATA 36, OD, El , CD, 21 , 00, DA, 00, 50, 2A, AD, 50,22,04, 1 1 , CD 
DATA 24, 00, DA, 00, 50, CD, 06, 00, 11,4D,50,CD, 15, 00, C3, 00 
DATA 50, CD, 10,04, 13, 13, 13, 13, 13, DA, 00, 50, C9, 00, 00, 13 
DATA CD, 10,04, DA, 00, 50, CD, DB, 50, 79, F5, CD, DB, 50, FI ,81 
DATA F5, CD, OC, 00, 3E, 3A, CD, 12, 00, FI , CD, OA, 51 , CD, IB, 00 
DATA B7 , C4, FF, 50, FE, 58i CA, 00,50, 18, DB, CD, 06, 00, CD, 05 
DATA 51 , AF, 4F, 06, 08, CD, OC, 00, 7E, CD, OA, 51 , 7E, 81 , 4F, 23 
DATA 10, F3, CD, OC, 00, 3E, 3A, CD, 12,00, 79, CD, OA, 51 , C9, CD 
DATA B3, 09, C3, IB, 00, 7C, CD, OA, 51 , 7D, F5, E6, FO, OF, OF, OF 
DATA OF, CD, 1 7, 51 , FI , E6, OF, B7, 27, C6, FO, CE, 40, C3, 12,00 
DATA 13, CD, 10, 04, CD, 06, 00, CD, 05, 51 , CD, OC, OO, 7E, CD, OA 
DATA 51, CD, OC, 00, 11, A3, 11, CD, 03, 00, 11, AB, 11, CD, IF, 04 
DATA DA, 00, 50, 77,23, 18, EO, 13, CD, 10, 04, DA, 00, 50, E9 
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Bx (3% -fv a©3S5iei^rsD 
- Kro \ AtfDm, gsro \ 
-H-SCWBCSOg^o 3^ 
fiB4&t 4 

frW#e>; F*335©3/Sg5©l37> 
=£ZJ^h^5CtlZU^bd:-5o 
^*S*ZJ‘Vhl^CBtM'\ffl» 

r lP&j££<y,l7>;5:$;|ZBl,\ 

ffiBUSUr^Tv g»©aiZA 

Tffll53ffl f SZM/fr-l/iSBax 
i\*a' omt&yztmzam-Dt' 



foiziw, 'a»u<®i;3n3tst\^?o 
=&3— Os "««'©©£" © *tY ©IB. TfflJcE 
*0 3 c\ "o 3 e\ "O 3 b— \ "o 4 d* 
•ba^rus?. cnBUBfeB^rcig^'vh 
sn£fflga©T\ zni^ijnaufflrw m 
:(?vDttCfel\**1i/uo 
■czffl«gfeaiifi3*-dldd; l 0s , s^©»* 

5©ABfc*3Tg-. RUN^Sta 
^frMSB&tfl±IT<S<yBI,Wo 
t»COtt£ "Z-oZhj" ffliJ^hrBx <7*5 
310~340riuS i fe^ld'C® l Os 
CJX> 3) 


: .d8cf.d8c ’ 

: . g8a8o5c8o4a8a8g8f 8g a 
>5 c . c8 o4ao5d8c8o4af * 
J.a8d8c8f2. " 


PLAY "t80" ,"t80" , " 1 80 " 

4 .d8c" ;-a8. .r64a. ,r64" ,"i3f8. .r64f . .r64" 

f . g8a8o5c8" ,"a8..r64a2" ,"f8. .r64T2" 
o4al6.r64a8g8f8g" , " o4c2o3b-8o4c8" 

o5cc 16.r64c8o4ao5d8c8o4af " , *4e4 acd8c8" , "o3agf o2fo3f 8e8d' 

g. a8d8c8f 2.r8- , "o3b2b-a2. - , -o2go3geo2*o3f 2" 


05 PLAY 
10 PLAY 
15 PLAY 


CONSOLE .,0 :CLS 



*t80* , * t80' , ' t80* 

' 1 8r 8o4ao5co4f eg * . * o3f . d8c * 

* r8o4ao5co4f eg * . * o3f . d8c ' 

* r8c f gao5c ‘ , * o3a . . . r64a ‘ , * o3f . . . r64f * 

"o4gadcf8r8* . ’b-2a8r8’ , ’e2f8r8* 

* 1 4f . d8c ‘ . * o3a8 . . r64a . . r64 * , a o3f 8 . . r64f . . r64 ’ 

*f .d8c a , *b3a8. .r64a. .r64\ ’o3f8. .r64f . ,r64* 
a f.g8a8o5c8 a , a a8. .r64a2* , a f8. .r64f2* 

* o4al6 . r64a8g8f 8g " , , o4c2o3b-8o4c8 a 
*o5ccl6.r64c8o4ao5d8c8o4af * , * fef acd8c8 " , ‘o3agfo2f 

«ou rum ' g . a8d8c8f 2 . r8 ’ , ’ o3b2b-a2 . * » ‘ o2go3geo2f o3f 2 * 

500 FOR T=0 TO 1700 :NEXT 
510 LOCATE 13,4 
520 PRINT *0 x' 

530 FOR T=0 TO 180 :NEXT 
540 LOCATE 13,4 
550 PRINT ’O O’ 

560 GOTO 300 


310 PLAY 
320 PLAY 
330 PLAY 
340 PLAY 
410 PLAY • 


450 PLAY * 
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TLbfrok! 


Llll -PASOPIA 


•PC-8801 -PC-8000 • FM-7 • FM-8 



ltMS£§s &fc*>#«»£ffltZ.3v 
Wdbr&^SS8©hb-->7£CC:3*3;b 

mat iSv M&gmcDA'ODttLwnz *s 

»" ©*© '**»' -c^o k#©*£&Aa r@^ 
©hb-=>'7gwr«<> mts/v, a? 

^/uffiStocts c©>?-o:/ • 
izjgfllbr<£<*i\o g-«5Ui\^«iitgsiz ; t)S;‘0 
S^To 

?KzommiD< vti&im 

s= <r v "MU' izzx, \ra^£83 i/c*s u* -3o 

K 2v 3 n 4v 5v 8Cx fcCfflflWWP 

o issawc 

easoaEii/utfx zrootsM^tii *»»* 
OEBeiSiEfflSR) ££tfStfo 
»«ax»«b'cii | o*nx atfctb^o sc 
■C#<tx a=bxc tM.'Ottlf. CffltSv 
btcBaffllWtlMv, aiSv bc^c®fSi!atc> 

w**, 

MKWirfcx o t 1 la^gyr. £fa®mmz o 
tercfeaiaoiz# 1 ^ t/u«g«rt>i 
rayosns^o zj^Dv i iSv <r^T©s»©*9 
areas <0v oiSv tf^oBRffiBRtt^tc 
893:tfo 

15ISv 3 t 5 3 ^5 IS 
t^CbSo? 15tv 3^5IS14Mtf$tfo£o 
r^o 15Bx 3^5'CBJ‘OSn^^ 3^5 IS 1 
tv ^(Dw.mm-c^ttmvgnm-eho 3$>5isis 
tfffli mzm&n r =fet («)j casRtivsz 
fCv IlHRtJW'Cl'SWafflMRaffi'W-o O' 
5lSM'<SbS!li8IS 2 r^o 
^nriSvUissastffltBo^srbs:^? m 
m??o tms200omhfe®iiZv awefiss: 
A -U5;P(Dm&m, IL-9iJbKIZ^TiiE99$n 

-^fflm^t^fflS^^rfflHPiiSv mtrxz< 
«nis«sistv u&\izr< 89S33& atb 
50 URRfcS 9 3c WRfflWj[fflfi€ar<e« o 'o 
(3 v 5) C5v 7) (11 v 13) (17v 19) (29v 31) 
(41 v 43) (59v 61) 







c. z(D 

£<£i*n^7o "mm.(D 
M.3-" ISif©<Sl\a5ST*l,<£S7? Zn*>, M 

-&nns. sss^n 

^ISif). 1\&(D£Z 

sis. i 7ng#©$j^rfflns7£S7£rat 
tzgtmbzixufi\ -M&sai sOTsnrus; 
t?/vo m\z, looosrfflg^cD^rirntiin 
ioooecD 

m^m / \'D^z>[zz)^Zs 
«3$735S7ifS7. 275ISi;7:7C. 
t. u$^5»j9ii£UT{S7©TU7Sitnis 
S^tTi/ftS. £mA;£ftfilZ£-3>'Cl^l,\3: 
7 0 

zhnz^^^ytfmti^mn^cDznt}, 

U£Z>s C©tt*£^Strca^USOo 

7D77^©£77D>CJTSC^r*i:<;e$ 
iv lufflr. 7 


□7^eis. 7/i/£^®ss®37^T:i\5©r# 

fCUI. 77D>7M£^oTUS©7$U8frUT: 

<£$uv 

^At)UC. NC1000£-07'VhLT. 1000^-C 
©g^$©c£0iS$£±H«i AT2>3; bSOoW. 
£7£7. H®IZ^7iinTS^1SAu«o $77 
®7't / D>=fcSt*IZ#Z7o-G,\Sci;S'C7o 
zmjyizzz, ^$n^BffgKfaisi2»46ft!)< 
5l\;g-3>£IS7T*7o 77=I>T\ ZnSSK07 
77S0S75. 

S. |qIB77S7m7S<«SCtSIS^Ur7o 
7D7^A@£fiT<£$u i\^-^yuiz 
7D77Z^©C.^ 19501 
7„ $3d. Z© I FX£. Sr^CJISZ^Sx-C. 
RUN$1t£5i:srL<£S 0 §tg©BfTSR[IS7. & 
^t1OT<i><!5lMZ«^rU^I,\^^o £-315. 
1 ^©^©771/^7/ CfllS. l,\o£lA if -5 
It195©77D>A©^IS. 

t>u 7>7'vSb£$N. ccnsiooo-cu£7. 

^©1000^7©^S^ I 7^7®S7ifS7^ 

^©sjfmfPitr. t>i> 2 7sii^9j-^rtK^ 


•707^-1 
100 ' 


*tI 40-C. 3£jg[<7)A*ie5lJ*-o< i)Jto 

110 ' V21 1)<*1 1 

120 ' 


ffi6ox% mmftffinmwxti- h it t» 

130 DEFINT A-Z 
140 DIM SI ( 1000 > 


frl80~230T\N t T«— P— o<7)gigf(-oi'T. 

150 input vwr J 

160 TIME$=’00:00:00‘ 

VJ1 1 tM 73» : * jN 

2A'<b. 1 O^/j.'L'SStJTW^rgBT- 

170 S4=0 

180 FOR 1=2 TO N 


mnntitto 

190 FOR J=2 TO 1-1 
200 IF I MOD J = ( 

) THEN GOTO 230 

m*ox\ 

210 NEXT J 
220 S1(S4) = I:S4 = 

230 NEXT I 
240 PRINT '1)1)19 5*n: 
250 PRINT N|‘ 77“ J \ 
260 FOR 1=0 TO S4 - 
270 PRINT SKI); 
280 NEXT I 
290 END 

= S4 + 1 

*t 260~280T-. N J to 
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jam. 3xjtfiam<D i 

zzz, ztmm.te'ptbz, yuDfflm® 
m'ommcmrjis[,\<n,\Z)*,(DTno 
izzxtf, mm® i ffl7£^?o 2tte>mmGs 


s&T(D®T?§teZl^Z,£(D®ZZ>mrLrjVn\£. 
37&m®£^Z>Z£\ZrjZ>0)Z-$lf, I K/utittx 
36aWSJ#^8t'©'C?o Tffli?£<Ml(sf-g 


iijb*i5& ( 1 ) 

37 

m a & (j) 

2 3 4 5 6) [7] 8 9 10 11 18 36 

ift 

16 12 9 7 6 5 4 4 3 3 2 1 ) 

£ U 

5 1 1 2 1 2 5 1 7 4 1 1 


0X[7]>37 
(J)X(J)> 1 

z zij'hWk.<n&T-m -it-.mu 'St-'-f 6 x n >j'* <.'«» 
cut) it * x-tii'b N 

%(f. Z *UU&<r>SrC fc #] ft 2 -ti- A,o -h<Ofi*J!.Tt>* 

Lfc**-3T. tt#Iis zzjmif-t^ 
£i"5 Z£tztt40>T'T„ 


J>)l,3UXL>Tm<LX'y7Ky 

NZf1000CWiftT^»5xZ(DS^T^\ttKx32x 

32>iooot*n 2#s3i^r©8rc9jn0Z ®t(D® 
■c9Jor : feim;iigs^mss^©rv tosrow 
t i «9saMRf«<asfflr9'o ada > a^©'C 0\ 
999is]^st<z5^x ©riSv £-3>£©3iisrgA/c 
L*o£fflT\ 12fl46»*m-3fcfc©iCf* JW2M 
M'J^XoT oEffl^o 
^□^5£i«ff*<!:*CBx WXAIZ^SIi-5 

^m^ftcfewacaos^o zniapinruA^ 

(B*BT "»;£" tlR^AfeU^) teflon. 

ttra^Affisactuiw. ?)\mxistt 

<£<SU£v lli;;ii£AxZZ>C^5irtfev A 
t?-Ktf^tA'V7K>Bd3i-3'C*S9-o 
itWJXLB, 

tt*©iM£gfi8rcs*2«'9«<Jifiu *n 
lz:?l\rffl§«Bfl»aS£attnii£*nTS^ 
i*/u» 

©;pJUXUAAia«l,vCl^c);otf? 

hA^Ail^AtfUS^o S^©Bffl#ffl^ffl 
ft££*Uf3UTA 2200^tMs Jfi*fflS*>9fflBKS 
*»ofi©r^tfx*ffl«fi3989O^BttS0IW)»fi 


£i3£^£#t>9«i,v&©'cu/So 
C1©A0Z g:£> "I^hAx^Affl&StV't^ 
an^v ou<i:-3c-3#i«»a»Baasta^jeL/ 
eztrfe^ST^o 

% i5iSl^«E^HaSo36034» 

©r^o ^©n*^*fe>iM/c<!e*^ 
©iai;©iz, i #enizg$&£Eiffl<£x>c»£ 

©1 *3HU*Vo 

<m,-oizmm® 2 izo£x»«\ -&©<8$£±a$ 

@&IZ5Sz>£&'J\©8R 3 IZO£Z>d\ -£:©««£ 

^bbsi^s - . 




iSSifill 
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\>Ah(D^nj5^m\-rc\,\^ s&izo ©ou 

:7D0^t®£^-Y>UT<££lA o RUN<T 
Sts "X5h^^fflA5l\'T3IW«r3tfO« 
ci^itKi?^ a^-aiZx otgruotts 
c^os ?4Xns4®±3zam\sr&mtt, mm 
'&i&Mtfim6&££&a.£>ris m&mmpv 
7l>tcfc-3C SxSrUcJOo 
TBs "/3\SU" ffl#*«7nC^®IZ«/t/Cv> 
®i;tt^#£n< Baffles 

irrs^rL/i^So • 

6^s<s ®t*~i'>UT<;esi,\o -euTx 
RUN/ ^otniSaotUs £-3>£©34£!><B 
IW. l\/HZsI^hAAP*Atf*B#o£#Bs 
z(DBm—z>T?&tmio- cu^, 
©ffl7DC/^tlSyt^^3000^r©^^ "/3\S 
mZtfttSjcfc^PBmri Wtfs BASICrffiX 
/3v^-5ffl^?-i / q>'CBs t'vh^©M^rs »*S 
lEffliTOs 2 15 -1s ^^*032,767^^^0 
tZBTN dtU&v, SH£-Z>mU3;U.£Z>o 


mm _ 


I^hAx^Affl&Sl^ffioCs feot 

tts ^/vuya^L^mhiz^iwu *-3? 
PEEKsPOKEB®oTfcd;©CtlZU^^ 0 
t>R ©«^J 2 feWBIIISrCBmv, 

©35Sil!& I ffltfflK^^-tSx I + I 

© "/3\SIA" Cttx 1 » 0 UtfABSUo 
g$ (16t'Vh) 

«t\o ORttfAND^ffijt&U#? 

@-ec "&£©" 

7ncr^L>(D&u®uz, ^ojsstx n^At. 
-Rrpffig-sztcu^UcS-So 
tars^Bs tfiOs «fca«Ta-p-c<e*iv 
£35s &«&^x®fflftlStftt<0IZ^*3;U,i;-5o 

"i^hAx^A©/3\S©"©Aao f ^ 
^farsEffl-Cx zn^s^urs zn^e$^ 
©sfig^fflsais *«br»ib' ***£»*' **/j\ 
shbr* ©7D75^«ff-?T:**u*E o 
cp^s^Bs zn»B$os<#^r®^st 
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mmtDVt Mffs fflBLt^x 

nmy a zztf?^y&womft(DBffiT& . 

7D^^CD7Ki / >h^BiBJUT35^^L c i:-5o 
•JKBRaHtBx 35-5g$£x **HffE5nTU 
5JII«©*T*tf Zfc'C?. (HI 30= 2 x 3 x 5 )o 

u^AuCs aiowti/Cx SftiZx ^©es^r^ 
e*HR±ffi©«tU-CEU*^o Z©£Sx Z’l'O 
yv®zziEammte32,767 (2 i5 -mrru£ 
jtiBx mmomia, iQcsj5§u^sffi»5i8ixi8i 
<32,767<182Xl82‘Cx181^S^n«cSU^tC« 1 0 
30f5fflD I M FI (181)ZU£©ld:Z©£ 

•■^BWtttx lKO#fflffiaiZ«SU£#3« 
©■55x SXfflt.fflfflZi:r^o 

©tSx ^T©«^*zt©r«taBR 
isttaa^r^o 

©tu aoisiiwttW^nuttBx zn=&« 
aH*affl'c»tt-*9'o zn0\ i82i^±©ssf( 
tfA^rt/ \s qiigttTf as 5S5r? 0 

©StL^EDIPJU^o 

®a/j\ae»Ux i\<z>#©g»c«jiu£e&© 
^5x 0 £ (§Kit'J'ffl i &©fflZ£:'C3‘o 
©5*5n£^©B£raftcj*B^iiiuT^ 
• s^<r 0 i ^©s^rt)»jsc^©r^sjs^ 
BJRHRfflEPJCAamteStfo Z©SgSx 
*B*^jCxi8iWTffl«fia»tW'>^u*ir) 
g$©E5!IC»x 1 #182£t±ffliit8tf 


Aolt«?o 

@*B*©*€fMSWZAtt*?o 
@S^^An^E5UCBx182m±ffl^7?SoT 
tvg>zttf35 l o^<ro ^crx zote^H'K 
THUfcffltfasntfx -micl^o 
®£ yfflnca-3t»a€»««^o 
©SatEDBIl/Stfo 

MCiiUJSSWx 
aactfeassffl'Cx <s«gizur^ l o^^o 
«*&*)Rfcx »j tfMSRfc 4 mzzAnsn 

70'7^Li(DmmtfZ)tt£>rj<Z ! bftm[,\$i?hjo 
tt»<s 7a77L>%¥15Z<8Z£tfft%tZ7 B 
zh&izftm&tttt'o&ttfao ^i/crun/ r R 
UNS / '?/u)*fcffl3 , ff5aflr*j Z7o Z>7Ziy(D 
5VX7iWT»«»wt/cusBSx wnz% 
dMx wgmmrp'irrezajm* 

ZrtZ'J/h • x-XtfUXK ISSRjffWSS-Cffl/Jr 
fflffit100.000«T*©ill«ffl«€»<oE«fflat\ 
fefflttsas# 

«S7DC^^$*ffl»ettx jflli/i/Cx 50S 

«cBwa€a5«o^*9o 

&Z9t XSffRtSK*ratfiW3-3-7 
BSfOSI 2 K;WflO*flfeWl»»7D75Zi« 


OAO)1il«£HI m,, 

m nva Hi 

^^y^PCOM-ffi^Si&PC-PAL-^yM^^XfA 

08'*— v-f^w tr$>*x r^xh 

T150 *3fC«;£SI2*it»1-8-7 l-TOtr* O03(442)7070(ft*) * Ol#ilSlJ£tt$SRmP2-0- * 
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PA SOP I A-*CONSOL EX^ilS/ P C-8801 • PC-8001— W I O T H80.25 : C 0 N S 0 L E O, 24, O, 1 /FM-7 • FM 8— W I DTH80.25 




3-f >=}- • u >'<? h • 7oy 
£—T ! -(Xft> < %7£ZtltZo 
OA. ^v^xn^RX-ya y 

fc"-A<j£ < aizun. 

fiifiTtt. 'J'SiT-Ma<-'«P-W4' 
t,(Db*W.i tlXl'tZo 
-cn--7:izzfzi.tzcntjK 03: 
0 zotzU'ftfiZtitz. 
h • 7 ay tf— X-f 7.2 
CF2 (5») tio 
C F2lt*3j>3-IM XtiWb 
5 irieitg**'* n . 

Y'r-T.Vix? y $ -mm 
mttZ. UMy F!S3£T\ i*)& 


¥#HMX> Y~fyx=J-y 7 
*r- x l-iRlft $ ftT 4s 0 , *a 'K 

#fe$'L'o 

Sfc, 5-f^-J=-7P'y 
V7hWtE« 
14*** 0 . 5 >f v 7 h *<-£ 
<7)SS15X%tL'oSflFffe*4„ 
jSfflfgffiT 500 K/<-f 1- I T<7) 

ibises*** n . stu it 1 300 n „ 


193 





(popcorn fm flflfefljg) 


r POPCOMx?/yAj ( 4 -^-§-^P. 131 ~ 133 ) 

Tli. -74 

-•y?lcov.'TitiilTl'< WCTo £ 3 «>Hk 
BAsicTfj x 5 -7> ‘j *cf- -cv.' 

#Sto V'»»JU— ?■>*«? - i: Ci IJ v -74 
^y^nim^Zltz^ntWSLX^Zto 

t# *m $ < 

tc L tzft&iz IXI'< ttiSTto 

6 fm<D7—-7ti. r iia'C'iiffi^«I*'t-PART 
2 j X‘tt\ 7 *?-§-. 8 £-§-<7 SiJIBOTi: 
fcUT-To 

4'fc\ JIfiS<7)F*3§(±x +U^^4'fe<7)T'*2>- 
fc> #%ULfc^ny5A^E*s6( , *»lM-tt» * 
<7>ai&*<*>L<#$*;l'C<rt:S\.'o 
s-iks m*>tfx'aii'7 — ▼***»; * ifcb, 
^#t 4 fc 5 EPb-ti-</£?v.'o 

!&&>&** L 

*if**o HWSflli:**-*: 

t> * ') Z t(7)X\ Z'7%. < tz <* L'o 
.5x5 oTClfiffl < tz* 1' 0 



7^5 ( 6 E 18 Bftft • Pxf«Pf® 5 ^ 10 B!W») 
r BASIcrffi-5«5$^F-Atlj 
8ES (7E18B0M-lR*lPt196E1OBtta) 
r S0UNDJU-5 L >-l\5l/\5® 


imm i o ft tio 

3-3-7Bg*Dl& 2 h'/M F 

P0PC0Mt7/774£ 


*®W14£«'.'A L Z MMnTZI* < fc-iH'o 


• *tE^h • +t-t^©Ej3UA2>7D>£* 


★^•c^^h^ssAx ^aoo^TegxDi'^n^-ca^ u&a<£&i\o 
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